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1 1 Amstrad PCW 8256/8512 parece ser la «Cenicienta» 
de la garna de ordenadmes de la marca, debido al gran 
desconocimiento de su potential oculto. Proceso de textos, gestion :j 
algo de Basic y eso es lodo. No obstante, el PCW es tan accesible a 
la prestidigitacion, al asalto del ingenio y a extraerle jugo 
como sus hermanos menores de la serie CPC. Por este motivo 
Amstrad Semanal propone 30 ideas, rutinas de gestion de utilidad 
general y trims para, una vez mas, hacer lo imposible en la 
pantalla de r un Amstrad, solo que de forma util. La eficiencia y el 
ingenio se dan la mano para format el lema principal del presente 
numero de la revista. 

En otro orden de cosas completamente distinto, se nos ha ocurrido 
organizar un sensational concurso musical para todos los usuarios de 
ordenadmes Amstrad, cfren'evdo como premia tres equipos de alia 
fidclidad equip ados con disco User , p cuyas bases el lector encontrara 
detalladas en pdginas interiores. 

La segunda parte de nuestro programa creador de graficos 
profesionales, ilamados «sprites», tambien podra encontrarla en este 
numero. Listado e instrucciones completas. 

Las secciones habituates de Amstrad Semanal. «Serie Oro». 
truths para los CPC e «Infobyks», que tan bien han sido recibidas 
por nuestros lectores. ocupan el lugar de custrumbre en la revista, 
junto con el ancdisis de un gran juego «(Jlidei rider », que sin duda 
hard las delicias de todos hs «ludicos» del mundo de Amstrad. 
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El X’press 16 
de Spectravfdeo 
ya esta aquf 


Spectravfdeo Internacional 
Ltd., fabricantes de SVI, 
Quickshot y productos 
electronicos de consumo, ha 
anunciado que su nuevo 
ordenador personal, el X’Press 
16, esta disponible en Espana 
desde finales del mes de enero. 

El X’Press 16, que sustituira 
al MSX X’Press en el mercado, 
es todo un compatible PC con 
256 K de RAM incorporando 
una unidad de disco de 5 1/4” 
(floppy disk drive), un conector 
de expansion (para tarjetas), un 



teclado inclinado con 83 teclas y 
puertas: para conexion de 
joysticks, raton, impresora 
paralela y salida de monitor 
RGB analogica, RGB digital y 
video compuesto. 

Soporta ambos sistemas 
operativos PC-DOS y 


MS-DOS. 


En el pueden correr todos los 
paquetes de programas para 
PC, desde los ya viejos 
conocidos como Wordstar y 
Multiplan, asf como los 
relativamente recientes Lotus 
123, DBase 3, Sidekick y 
Framework. 

El X’Press 16 es el primer 
ordenador personal en 
incorporar dos interfaces 
graficos: un adaptador de 
graficos color compatible PC 
(CGA) y el MVDP procesador 
de video (MSX 2). 

El MVDP es un excelente 



procesador en video display, 
originariamente desarrollado 
para los ordenadores personates 
MSX 2 y adaptado para MS- 
DOS por Spectravfdeo. Sus 
caracterfsticas: 256 colores con 
resolucion 256x 212 puntos, 16 
colores con resolucion de 
512 x 212 puntos y una gama 
deslumbrante de efectos 
especiales incorporados, 
incluyendo desplazamiento de 
pantalla, barrido horizontal y 
vertical, y sprites multicolores. 

Trabajando al unfsono con el 
CGA, el MVDP puede tambien 
mezclar o superponer dos 
imagenes, una desde el propio 
MVDP y otra desde el CGA 
para generar imagenes 
compuestas de una calidad 
nunca alcanzada anteriormente 
en un ordenador personal. 

El X)Press 16 viene con una 
unidad de disco flexible 
conteniendo el sistema operativo 
MS-DOS, una avanzada version 
del interpretador de GW- 
BASIC, el cual soporta las 
caracterfsticas del MVDP, y 
programas de utilidades de 
RAM Disk y Spooler de 
impresora. Esta configuracion 
basica, poseera un precio 
aproximado a las 109.000 
pesetas. 

Comal: 

Un nuevo lenguaje 
llega a Espana 

Un nuevo lenguaje ha hecho 
aparicion en el panorama 
informatico espanol. Se trata del 
Comal, un lenguaje moderno 
desarrollado en Dinamarca y ya 
plenamente introducido en los 
Pafses Escandinavos, Alemania, 
Holanda, Gran Bretana y 
Canada. 

En Espana, un grpo dedicado 
a su ensenanza, Comal Espana, 
se ha establecido recientemente 
dando a conocer que se trata de 


un lenguaje que reune todas las 
ventajas y sencillcz del Basic, la 
program acion estructurada del 
Pascal y los graficos de tortuga 
y diseno pedagogico del Logo, 
ademas de contar con sus 
propias caracterfsticas. 

Conjuntamente con el disco, 
se entregan unos Packages 
especiales para animacion de 
graficos, sonido, etc., asf como 
un compilador que varfa segfin 
las posibilidades del hardware 
del ordenador. 

El grupo Comal Espana se ha 
establecido en nuestro pafs 
como una asociacion no 
comercial, en principio, con el 
fin de elaborar los manuales de 
instrucciones en espanol e 
informar sobre todo lo 
relacionado con el mundo del 
Comal, su direccion es «Grupo 
Comal Espana». R. Uphoff. C/ 
Castillo, 7. 18184 Beas de 
Granada. 

Mas gestion 
comercial de Alsi 

La empresa Alsi Comercial, 
ha sacado al mercado el 
programa de gestion integrada 
comercial, Comercial-6 para 
ordenadores IBM, PC, XT, AT 
y compatibles, y Amstrad PCW 
8256 y PCW 8512. 

El programa esta desarrollado 
en Pascal e incluye dos 
modulos, uno para gestion de 
almacen y otro para facturacion 
con fichero de direcciones, 
ademas de otras utilidades como 
la extraccion de listas de 
precios, aumento o disminucion 
automatica de precios a los 
artfculos, etc. 

Ha sido desarrollado 
pensando en su utilizacion en 
empresas de tipo 
pequeno/medio, ya que permite 
una gran facilidad de uso para 
lo cual no se necesita personal 
cualificado, sino que cualquier 
administrativo sin experiencia 
podra hacer uso de el sin 
demasiadas complicaciones. 

Algunas utilidades de este 
programa son la facturacion, 
control de almacen, circulares, 
control de pedidos a 
proveedores, control de pedidos 
de clientes, etc. Con este 
programa y una buena 
contabilidad no cabe duda que 
quedarfan cubiertas las 
necesidades de gestion comercial 
de cualquier empresa. 
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Como programar 

ordenadores 

personales 



Con este libro se pretende 
obtener el mayor rendimiento 
posible en el uso de los 
ordenadores personales, buscando 
en esta contribution a la 
programacion, estimular la 
creatividad del usuario. 

Se puede definir como una 
coleccion de programas que 
pretende abrir horizontes hacia 
nuevas aplicaciones. Hay que 
partir de la base de que este tipo 
de ordenadores no solo sirven para 
jugar, sino que poseen un campo 
muy amplio de posibilidades que 
uno debe descubrir. Este libro 
demuestra que un ordenador 
personal puede ser util para hacer 
representaciones graficas, investigar 
en temas matematicos o simular 
comportamientos de la naturaleza. 
Lo importante es no limitarse, ni 
limitar al ordenador, ya que este 
tipo de aplicaciones solo necesitan 
reglas de programacion muy 
sencillas o bien un poco de 
imaginacion. 

Los programas se tratan para 
varios de los ordenadores existentes 
en el mercado, como Apple, 
Spectrum, Zx 81, Hewlett 
Packard, Oric Atmos, etc. y se 
indica detalladamente como se 
pasan de un ordenador a otro. 



Proceso de textos 
con el Amstrad 
PCW 8256/8512 


Ficha tecnica 
A u!or: R. Hughes 

Paginas: 170 

Editorial Gustavo Gili, S. A. 
Precio: 1.600 ptas. 


Un procesador de textos es un 
sistema que permite componer 
documentos muy cuidados 
mediante un teclado y un monitor. 
Al poder corregir en pantalla todo 
cuanto se desee antes de pasarlo 
por la impresora, nos hace pensar 
que estamos ante la forma de 
escribir mas comoda y perfecta que 
existe. 

Por su parte, el PCW es un 
microprocesador disenado para ser 
usado como procesador de texto; 


PROCESO 
DE TEXTOS CON 
EL AMSTRAD 
PCW 8256/8512 


GUIA PRACTICA 
PARA EL PRINCIPIANTE 

K HUOttfS 



por tanto, este libro trata de la 
utilization de su programa llamado 
LocoScript. 

Se detallan con precision las 
operaciones mas importantes de 
procesamiento de textos, a si como 
todas las prestaciones del 
LocoScript, que le ayudaran a la 
manipulacion de un texto en un 
documento. 

El subtitulo de este libro es Guia 
Practica para el principiante. Por 
ello se indica en su interior que 
«para entender este libro no hace 
falta ningun conocimiento previo 
sobre ordenadores. Si ROM 
todavia le suena a una bebida del 
Caribe y RAM a una marca de 
leche, no se preocupe; aqui 
encontrara todas las explicaciones 
necesarias sobre la jerga y el 
lenguaje tecnico». 


Diccionario 
de informatica 


Ficha tecnica 

Autor: 

Obra dirigida por Enrique 
Fontanillo Merino 

Paginas: 

359 

Editorial 

Anaya 

Precio: 

2.385 ptas. 


La informatica, como ciencia 
nueva y en constante crecimiento, 
exige de terminos que estan sin 
iijar en su mayor parte. Con la 
idea de abandonar anglicismos y 
galicismos y crear una terminologia 
castellana propia, nace Diccionario 
de Informatica, editado por Anaya. 

Aunque en lengua inglesa los 
diccionarios de este tipo son 
numerosos y se vienen editando 
desde hace mucho tiempo. 
podemos afirmar que en castellano 
se trata de una autentica novedad. 

El contenido de este libro abarca 
las distintas areas de informatica y 
su entorno, con traduccion al 
ingles ademas de un listado inverso 
ingles-espanol. 

Este diccionario parte de la idea 
de que palabras como hardware y 
software estan totalmente 
impuestas; sin embargo, hay 
multitud de ellas que todavia 
tienen solution y se pueden 
empezar a denominar en 
castellano, acostumbrandonos asf a 
una terminologia propia y 
aceptada. 
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d igual que hicieramos 
hace dos semanas con el 
CPC ^^rniendo e^ucuenta la 
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mejo 
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co 

usuar 

podran extraer de ellos la 
maxima utilidad para su 
manejo y funcionamiento. 


Por: Javier Barcelo 


1. Funciones de otros Basic’s 



Si se lee una de las primeras paginas 
del manual de Basic, este dice que el 
Mallard Basic es, practicamente, igual 
al Basic Microsoft, famoso por ser el 
usado en los PC’s de IBM y otras 
marcas compatibles. No obstante, 
a la hora de teclear un 
programa de estos 
ordenadores en el 
PCW, la primera 
dificultad que se 
encuentra es que la 
gestion de la pantalla 
en este, es 
totalmente diferente. 

Este programa 
proporciona la 
manera de definir 
algunas de estas 
funciones, 
facilitando la 
presentacion en 
pantalla de 
cualquier programa. 





10 1 ************************* 

20 ' AMSTRAD SEMANAL 

30 ‘ PROGRAMA 1 

40 * F.J.B.T 1987 

50 '************************* 

60 'FUNCIONES DE PROGRAMACION 
70 '************************* 

80 ' 

90 '* BORRADO DE PANTALLA 
100 CLS$=CHR$(27> +"E"+CHRS <27)+"H" 
110 '* PRODUCE UN PITIDO 
120 PITS=STRINGS(10,CHRS(7)> 

130 ' * PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 

140 DEF FNlocateS(X,Y>=CHRS(27)+"Y" 
+CHRS(32+Y>+CHRS(32+X): 

170 '* ACTIVAR Y DESACTIVAR EL CURS 
OR 

180 CURSORN$=CHRS(27)+"f" 

190 CURSORSS=CHR$(27>+"e" 

200 '* ACTIVAR Y DESACTIVAR VIDEO I 
NVERSO 

210 INVERSOS=CHRS<27>+"p" 

220 VNORMALS=CHRS(27)+"q" 

230 '* ACTIVAR Y DESACTIVAR SUBRAYA 
DO 

240 SUBRAYSS=CHRS(27)+"r" 

250 8UBEA(37 1 fit 
300 REM PROGRAMA DE PRUEBfv 

310 PRINT CLS$ 

320 PRINT PITS 

330 X=10:Y=10:PRINT FNlocateS(X,Y); 
" EL TEXTO APARECE A PARTIR DE LA C 
OORDENADA 10,10" 

340 X=20:Y=12:PRINT FNlocateS(X,Y>; 

INVERSOS;" EN VIDEO I NVERSO.. 

..";VNORMALS 

350 X=20:Y=14:PRINT FNlocateS(X, Y> ; 
SUBRAYSS;" EN MODO SUBRAYADO. . . . " ; S 
UBRAYNS 

380 X=10:Y=18:PRINT FNlocateS(X, Y) ; 
CURSORNS;" Y HACE DESAPARECER EL CU 
RSOR, HASTA QUE TECLEES »;INVERSOS; 
" GOTO 1000 ";VNORMALS 
390 END 

1000 PRINT CURSORSS 
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2. Mayusculas 



La manera tlpica de fijar el teclado en modo 
de «mayusculas», es pulsar la tecla “FIJA 
MAYS” del teclado. Pero esto tiene el 
inconveniente de que entonces en la fila superior 
del teclado no salen los numeros, sino los signos 
que aparecen encima de ellos, aparte del 
funcionamiento de otras teclas, que tambien 
varfa. Pero si solo se necesitan las mayusculas, y 
se desea dejar las demas teclas con su significado 
normal, basta con pulsar simultaneamente las 
teclas “ALT” e “INTRO” (ojo, no Return) 
para disponer de mayusculas y dejar el resto del 
teclado funcionando de manera normal. 
Volviendo a pulsar las teclas anteriores, se 
retorna al estado normal. 


3. Proteccion de programas 

En determinados programas, sobre todo al usar 
el JETSAM para indexar ficheros, una 
interrupcion en el programa puede causar efectos 
destructores, por ejemplo, en los ficheros de 
indices. Si en un proceso de clasificacion o 
indexation se interrumpe el programa y el fichero 
de indices queda incompleto, este no servira para 
nada. Pero Mallard Basic posee un comando que 
mhabilita las teclas que interrumpen sus 
programas, tales como STOP o EXTRA + C o 
+ S. Incluyendo esta linea de programa, estas 
teclas no tendran ningun efecto sobre el mismo. 
1000 OPTION RUN 
E incluyendo esta otra, se desactiva esta 
funcion: 

2000 OPTION STOP 




4. Ahorro de espacio 
en ficheros 

La manera mas normal de almacenar numeros 
en ficheros, es convertirlos en cadenas a traves de 
la funcion STR$ (numero). Pero de esta manera 
se obtiene una cadena cuya longitud es igual al 
numero de cifras de la cantidad mas uno. Sin 
embargo, el Basic posee una serie de funciones 
que permiten almacenar numeros de manera 
mucho mas eficaz. Estas son MKD$, MKS$ y 
MKIf, que producen una salida cuya longitud es 
de dos, cuatro u ocho caracteres respectivamente, 
dependiendo unicamente de que la variable 
numerica sea de doble precision, de simple 
precision o entera. De esta manera, si la variable 
a almacenar es entera, independientemente del 
numero de cifras de la misma, en el diseno de 
registro solo ocupa dos posiciones. 


10 * **********im#»*****»***** 

20 * AMSTRAD SEMANAL 

30 ■ 

40 ' F.J.B.T 1987 

50 '************************* 

60 ' EMPAQUETAR NUMEROS 

70 '************************* 

80 * 

100 ' * ABRIMOS EL FICHERO 
110 OPEN "R",1,"PRUEBA. TST" , 14 

115 ** DEFINIMOS EL DISEfiO DE REGIS 
TRO 

120 FIELD 1,2 AS ENTERAS, 4 AS SIMP 
LE®, 8 AS DOBLES 

130 '* INTRODUCIMOS LAS VARIABLES A 
GUARDAR 

140 INPUT " Introduzca un numero en 
tero,.:",enteroX 

150 INPUT " Introduzca un N/ de pre 
cision simple. . :",simple! 

160 INPUT " Introduzca un N.' de pre 
cision doble....: ",dobleR 
170 ’ * EMPAQUETAMOS LOS NUMEROS 
180 '* Y LOS PASAMOS A LAS CADENAS 
190 LSET ENTERA®=MKI®(entero%) 

200 LSET SIMPLE®=MKS$(simple!) 

210 LSET DOBLE® =MKD®(dobleR) 

220 '* LOS SALVAMOS EN EL FICHERO 
230 PUT 1,1 

240 '* LEEMOS LA INFORMACION GRABAD 
A 

250 GET 1,1 

260 ' * LA DESEMPAQUETAMOS 
270 entero%=CVI(ENTERA®) 

280 simple!=CVS(SIMPLE®) 

290 dobleR =CVD(DOBLE®) 

300 '* Y LA FRESENTAMOS EN PANTALLA 
310 PRINT "El Numero entero es.,. 

.: “;entero% 

320 PRINT "El N.' de precision simpl 
e es..: ";simple! 

330 PRINT "El N/ de precision doble 
es. . . : **; dobleR 

340 •* CERRAMOS EL FICHERO Y ACABAM 
OS 

350 CLOSE 1: END 
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6. Ordenaeion 
alfabetica 



5. Busqueda de cadenas 


«c 


Y ya que estamos con funciones utiles del 
Basic, <;quien no ha realizado programas que 
clasifiquen alfabeticamente un fichero? (Bueno..., 
probablemente muchos). La funcion SWAP evita 
la incomoda tarea de traspasar el contenido de 
una cadena a otra intermedia, para intercambiar 
los valores de dos cadenas. Simplemente, SWAP 
a$,b$ hace que b$ tome el valor de a$ y 
viceversa. El programa del ejemplo, clasifica los 
cinco nombres de las cadenas en orden alfabetico 
de esta manera. 



Dentro de otras cadenas 

Entre las muchas funciones que posee el Basic, 
INSTR es una de las mas utiles. Como se ve en 
el programa, localiza una determinada cadena si 
esta contenida dentro de otra cadena. En caso 
positivo, INSTR devuelve el valor que es la 
primera posicion donde se encuentra la cadena a 
buscar, dentro de la cadena original. 


10 '************************* 

20 * AMSTRAD SEMANAL 

30 • 

40 ' F.J.B.T 1987 

50 1 ************************** 

60 ' INSTR® Y LAS CADENAS 
70 ' a****************-******** 

80 1 
90 • 

100 'DEFINIMOS UNAS CADENAS 

110 AS (1) FRANCISCO LORIN COLORADO 

II 

120 AS <2>=" JESUS PIROS DE ESPAKA" 
130 AS(3)="ABRAHAM LA PUERTA" 

140 AS<4>= H ERNESTO ES VIDA" 

150 ' 

160 INPUT "NOMBRE A BUSCAR..: ",NOM 
S 

165 FOR X=1 TO 4 

170 ' BUSCA EL NOMBRE EN LAS CADENA 
S 

180 RESULT=INSTR(1, AS(X>,NOMS) 

190 IF RESULTOO THEN PRINT "CADENA 
ENCONTRADA EN LA POSICION ";RESULT 


10 ' **************************** 

20 ' AMSTRAD SEMANAL 

30 ’ 

40 ' F.J.B.T 1987 

50 1 ******#***#*****#-***-*-*-#■*--*■ 

60 ' CL AS IFICACI ON CON SWAP 
70 '************************* 

80 ' 

100 ' * DEFINIMOS UNA MATE I. Z DE EJMP 
LO 

110 DIM AS<10> 

120 ’* INTRODUCIMOS LOS NOMBRES 

130 FOR X=1 TO 10 

140 INPUT "NOMBRE : " : AS (X.) 

150 NEXT X 

160 "* CLASIFICAMOS CON SWAP 
170 FOR A=i TO 10 
180 FOE B=A+1 TO 10 

190 IF AS CB)> AS(A) THEN SWAP AS (B 
) . AS(A) 

200 NEXT B 
210 NEXT A 

220 ' # LISTAMOS LA MATRIZ ORDENADA 

ALFABETICAMENTE 

230 FOR X=10 TO 1 STEP -1 

240 PRINT AS (X.> 

250 NEXT X 
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7 . Gestion de errores 
de JETSAM 

Los errores que da la gestion indexada de 
ficheros a traves de JETSAM no son facilmente 
identificables. No obstante, dado que todas las 
funciones de JETSAM proporcionan un 
resultado, dependiendo del desarrollo de la 
operacion, esta subrutina permite controlar mas 
de cerca la marcha de un programa que los 
utilice. No hay mas que teclearla, grabarla en el 
disco de programas, y «mergearla» cada vez que 
se haga un programa de este tipo. 


10 • ************************** 

20 * AMSTRAD SEMANAL 

30 • 

40 • F.J.B.T 1987 

50 '************************* 

60 ' RESULTADOS DE LA INDEXACION 
j70 ************************** 

, 80 ' 

t 90 ON ERROR GOTO 1000 
100 * * AQUI EMPEZARIA EL PROGRAMA 
110 '* EL CODIGO SE ALMACENA EN 
' 120 •* LA VARIABLE RESULTADO 

130 * 

1000 ' * SUBRUTINA DE RESULTADOS 
1010 IF RESULTADO=0 THEN RES$=" OPE 
RACION ACABADA " 

1020 IF RESULTADO=101 THEN RES$=" S 
OBREPASADO EL FINAL DEL CONJUNTO DE 
CLAVES ■* 

1030 IF RESULTADO=102 THEN RESS=" L 
A CLAVE NO SE ENCUENTRA EN EL RANGO 
ESPECIFICADQ “ 

1040 IF RESULTADO= 103 THEN RES$>=" S 
OBREPASADA LA ULTIMA CLAVE DEL INDI 

CE " 

1050 IF RESULTADO=105 THEN RES$=“ N 
O SE HA ENCONTRADO LA CLAVE " 

1060 IF RESULTADO=115 THEN RES$=" P 
OSICION NO DEFINIDA “ 

1070 PRINT RES$;" DE LA LINEA ";ERL 



8 . 



Una forma 
de hacer menus 


A1 realizar un programa, si este proporciona 
muchas posibilidades, se recurre a los menus 
para dar opcion al usuario a elegir entre ellas. 
Pero en mas de un caso algunas de estas opciones 
conducen a otros menus, resultando que el 
programa dedica gran parte de su extension a 
programar esto. Resulta una tarea bastante 
aburrida, que esta subrutina pretende aliviar un 
poco. El programa consiste en una subrutina que 
coloca los textos en la posicion indicada, siendo 
llamada cada vez que se desee presentar un menu 
en pantalla, con el unico requisite previo de 
haber almacenado las opciones en las cadenas 
correspondientes. 


10 •************************* 

20 * AMSTRAD SEMANAL 

30 * 

40 * F.J.B.T 1987 

50 * ************************* 

60 * MENUS GENERICOS 

70 * ************************* 

80 ' 

90 ** BORRADO DE PANTALLA 
100 CLS$=CHR$(27 > +"E"+CHRS <27)+"H" 
110 * * PRODUCE UN PITIDO 
120 PIT$=STRING$(10,CHR$<7>> 

130 '* PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 

140 DEF FNlocateS(X,Y)=CHR$(27)+"Y" 
+CHR$(32+Y)+CHR$(32+X>: 

170 '* ACTIVAR Y DESACTIVAR EL CURS 
OR 

180 CURSORN$=CHR$ (27 ) +*' f " 

190 CURSORS$=CHR* <27 > +"e" 

200 '* ACTIVAR Y DESACTIVAR VIDEO I 
NVERSO 

210 INVERSO$=CHR$(27)+"p" 

220 VNORMAL$=CHR$(27)+"q" 

230 :• * ACTIVAR Y DESACTIVAR SUBRAYA 
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DO 

240 SUBRAYS$=CHR$ <27)+"r" 

250 SUBRAYN$=CHR$ <27 > +"u" 

300 '* AQUI EMFIEZA EL PROGRAMA 
310 •* SE PONEN LAS OPCIONES EN 
320 * * LAS VARIABLES.... 

330 OPS <1)="M E N U" 

340 OPS <2>=" 1.- ALTAS " 

350 OPS <3)=" 2.- BAJAS " 

360 OPS <4)=" 3.- LISTADOS " 

370 OPS <5)=" 4.- CONSULTAS " 

380 ‘ 

390 * * VA A LA SUBRUTINA QUE PRESEN 
TA EL MENU 
400 GOSUB 1000 

410 '* RETORNO DE LA SUBRUTINA 
420 ON RES GOTO:'* IRA A DIFERENTES 
PARTES DEL PROGRAMA 
430 END 

1000 ■* CREACION DEL MENU 
1010 PRINT CLSS 

1020 X=35:Y=10:PRINT FNLOCATES <X+4, 
Y);INVERSOS;OPS <1> ; VNORMALS 
1030 Y=12:PRINT FNLOCATES<X,Y);OPS< 
2 ) 

1040 Y=14:PRINT FNLOCATES<X,Y);OPS< 

3) 

1050 Y=16:PRINT FNLOCATES<X,Y);OPS< 

4) 

1060 Y=18:PRINT FNLOCATES<X,Y);OPS< 

5) 

1070 Y=20:PRINT FNLOCATES<X,Y)INP 
UT "OPCION...:",RES 

1080 IF RESC1 OR RES>4 THEN PRINT F 
NLOCATES <X-10,Y+4); INVERSOS;“ OPCI 
ON EQUIVOCADA. PULSE UNA TECLA. ";V 
NORMALS:. PS=INKEYS:IF PS="" THEN 10 
80 ELSE 1010 
1090 RETURN 



Algunas veces 
interesa seleccionar 
la gente que puede 
acceder a un 
programa. Para ello 
estan las claves 
de acceso. 

Fundamentalmente 
es necesario que el 
programa no se 
pueda interrumpir 
ni listar, y que al 
meter la clave de 
acceso esta no 
aparezca en la pantalla, 
manteniendola a salvo de miradas 
indiscretas. Este programa utiliza 
la orden INKEY$ para almacenar 
la clave tecleada en una variable, 


9. Claves 
de acceso 


que luego se compara con la clave 


del programa. Si la clave no es correcta, el programa 
se borra de la memoria, impidiendo su listado. 

Para ello utiliza la funcion NEW 


10 * 

************************* 

20 • 


AMSTRAD SEMANAL 

30 * 
40 1 


F.J.B.T 1987 

50 * 

************************* 

60 ’ 

CLAVES DE ACCESO 

70 ' 

************************* 

80 ' 



90 * 



100 

PRINT "CLAVE DE ACCESO. 

110 

AS= 

_»« II 

120 

■ * 

ALMACENAMOS LA CLAVE EN AS 

130 

• * 

LA CLAVE TENDRA 8 CARACTERES 

140 

AS 

=AS+INKEY$ 

150 

' * 

UNA VEZ TECLEADOS LOS CARACT 

ERES 


160 

' * 

LA COMPARAMOS CON LA CLAVE 

170 

IF 

LEN <AS> <8 THEN 140 

180 

• * 

Y SI NO ES CORRECTA, BORRAMO 

S EL PROGRAMA 

190 

IF 

ASO"CLAVE “ THEN PRINT "A 

CCESO DENEGADO":NEW 

200 

’ * 

AQUI EMPEZARIA EL PROGRAMA 


10. Editor de ficheros 

Cuando se realiza un programa que utiliza 
ficheros directos es frecuente tener que echar un 
vistazo a un fichero para observar si los datos se 
estan grabando correctamente y en las posiciones 
precisas Este programa ofrece en pantalla el 
registro que se desee, y ademas presenta como 
referencia una regia para observar la posicion de 
cada dato, siempre que la longitud del registro no 
sea mayor de noventa caracteres. 


10 * ************************* 

20 * AMSTRAD SEMANAL 

30 1 

40 ' F.J.B.T 1987 

50 '************************* 

60 ' EDITOR DE FICHEROS 

70 * ************************* 

80 ' 

90 '* BORRADO DE PANTALLA 
100 CLSS—CHRS <27 ) +" E" +CHRS <27 ) +■' H" 
110 * * PRODUCE UN PITIDO 
120 PIT$=STRING$ <10,CHRS <7)> 

130 '* PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 

140 DEF FNlocateS <X,Y)=CHR$ <27>+"Y" 
+CHRS<32+Y> +CHRS<32+X>: 

150 ** ACTIVAR Y DESACTIVAR EL CURS 
OR 

160 CURSORNS=CHRS <27 > +*' f " 

170 CURSORSS=CHR$ <27> +"e" 

180 ** ACTIVAR Y DESACTIVAR VIDEO I 


► 
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12. A la brasa 


NVERSO 

190 INVERSO$=CHR$ (27)+ M p" 

200 VNORMAL®=CHR® <27) +"q" 

210 * 

220 PRINT CLS$:DIR 

230 •* PREGUNTA EL NOMBRE DEL FICHE 
RO 

240 X=5:Y=9: PRINT FNLOCATE®(X,Y);: 

INPUT " NOMBRE DEL FICHERO. 

NOMBRE® 

250 '* PREGUNTA LA LONGITUD DEL REG 
ISTRO 

260 Y=ll:PRINT FNLOCATE®<X,Y> INPU 
T “ LONGITUD DEL REGISTRO. : " ; LON 
G 

270 • * ABRE EL FICHERO 

260 OPEN "R",1,NOMBRE®,LONG 

290 Y=13:PRINT FNLOCATE® <X,Y); : INPU 


T ■* NUMERO DE REG ISTRO.: - ; REG 

300 FIELD 1,LONG AS A® 

310 ' * PANTALLA 

320 X=l:Y=14:PRINT FNLOCATE®<X,Y>;" 
12 3 

4 5 6 7 

6 9"; 

330 X=1:Y=15:PRINT FNLOCATE®<X,Y>;" 


12345676901234567690123456769012345 
67690123456769012345676901234567690 
12345676901234567690”; 

340 GET 1,REG 

350 Y=17:PRINT FNLOCATE®<X,Y>;A®; 
360 Y=19:PRINT FNLOCATE® <X,Y>;:INPU 

T " OTRO REG ISTRO?.: " ; REP® 

370 X=5 

380 IF UPPER® <REP$)= ,, S" THEN 290 
i390 IF UPPER®(REP®>="N" THEN 400 EL 
SE 360 

400 Y=20: PRINT FNLOCATE®<X,Y) INP 

UT " OTRO FICHERO?.: " ; REP2® 

410 CLOSE 1 

4-20--LF_.UPP.EE® IREESAXsIlS" —THE N 2P0_ 

430 IF UPPER® (REP2$) =" N” THEN END E 
LSE 400 


11. Genere sus propios 
errores en Basic 

En efecto, por si el Basic no tuviese pocos 
codigos de error, si el programa que esta 
haciendo debe controlar algunos parametros de 
manera especifica, puede completar los codigos 
de error anadiendo sus propios codigos. Para 
ello, la funcion 

ERROR n 

permite definir un codigo de error, que 
combinado con la sentencia 

ON ERROR GOTO nnn 
permite conducir el programa a la subrutina de 
errores. En caso de no existir esta rutina, el Basic 
puede dar un mensaje de error desconocido. 


No todo van a ser trucos para programar 
mejor, o para manejar el ordenador mas 
eficientemente. Este programa, por ejemplo, no 
hace nada de esto. Pero puede que algun lector 
en este momento este pensando que manana 
tiene que hacer algo, para lo cual tenia que 
haberse aprendido algo, porque si no, no lo va a 
hacer bien. Y puede que ese lector piense escribir 
lo que se tenia que aprender, en un reducido 
trozo de papel. Por supuesto, lo que haga con el 
papel es cosa suya, pero este programa le facilita 
el asunto (por si tiene muy, muy, muy poco 
papel) reduciendo al maximo la letra y el espacio 
entre lineas de lo que imprime. 


10 * ************************* 

20 • AMSTRAD SEMANAL 

30 ' 

40 * F.J.B.T 1987 

50 '************************* 

60 * CHULETEADOR 

70 '************************* 

80 ' 

90 ■ 

100 1 * DAMOS LOS PARAMETROS DE LA I 
MFRESORA 

110 LPRINT CHR®(27);"1";:■ PASO DE 
LINEA 

120 LPRINT CHR® <27);CHR®(15); : * LET 
RA COMERIMIDA 

130 LPRINT CHR® <27);"S" ; "0" ; : * SUPE 
RINDICES 

140 * * RECOGE EL TEXTO 
150 TEX®="" 

160 WHILE TEXJO"©” 

170 INPUT "TEXTO? <@ PARA ACABAR) 
TEX® 

160 LPRINT TEX® 

190 WEND 

200 LPRINT CHR® <27);"®"; : • INICIALI 
2A LA IMPRESORA 


13. Orden 
ante todo 

En un archivador, 
no estan juntos todos 
los papeles. Suelen 
estar dispuestos en 
carpetas para 
localizarlos mejor. 
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Pero, ^que es un disco? Un archivador. Y por 
que tener juntos varios programas con sus 
respectivos ficheros en un directorio caotico, si se 
pueden separar en algo parecido a carpetas, de 
modo que cada programa tenga su carpeta, con 
sus ficheros? 

El CP/M permite estructurar el disco con las 
areas de usuario. Estas se seleccionan con la 
orden USER, y hay hasta dieciseis areas 
disponibles. Cuando se esta en un area, solo son 
accesibles los ficheros y programas que se hayan 
grabado en ella, y no los de las otras areas. La 
manera de cambiar de USER es teclear: 

A > USER num. A partir de ese momento, todas 
las gestiones en disco se referiran a dicha area, 
de manera que si se hace un DIR, solo aparecera 
el contenido de dicha area- 

14. Editores de texto 

El sistema operativo CP/M viene dotado de un 
editor de lineas bastante potente, aunque 
complicado de manejar. Por esto, Amstrad ha 
incluido otro editor, el RPED.BAS bastante mas 
sencillo y menos potente. Pero aun asf, si sus 
necesidades no requieren potencia, pero si 
sencillez y rapidez, el siguiente programa 
pregunta el nombre del fichero, lo abre, pide eh 
texto a grabar linea por linea, y cuando se acaba, 
lo cierra. No hace mas cosas, pero —por 
ejemplo— para realizar ficheros de ordenes puede 
resultar muy rapido. 


250 

• 


260 

IF lin*= n *" THEN CLOSE: 

END 

270 

« 


280 

• SI TODO ESTA CORRECTO, 

GRABA 

LA 

LINEA EN EL FICHERO 


290 

• 


300 

LSET linea*=lin$ 


310 

PUT l,x 


320 

x=x+l 


330 

• 


340 

'VUELVE A PEDIR DATOS A 

LA LIN 

EA 

130 


350 

1 


360 

GOTO 180 




10 

j 

■ *************************** 

20 

' AMSTRAD SEMANAL 

j 

30 



40 

• F.J.B.T. 1987 


50 

• *************************** S 

60 

•EJEMPLO DE PROGRAMA PARA 

1 

70 

’ REALIZAR FICHEROS .BAT 

j 

80 

• *************************** 

90 

•SE ABRE EL FICHERO 


100 

• 


110 

INPUT " NOMBRE DEL FICHERO.: 

" ; nombre* 


120 

OPEN '• R" , 1, NOMBRE*, 90 


130 

FIELD 1, 90 AS LINEA* 


140 

• 


150 

•ALMACENA LAS ENTRADAS EN 

LA 

VARIABLE LIN* 


160 

1 


170 

X=1 


180 

INPUT "COMANDO <* Para acabar 

) 

>•'; lin* 


190 

a 


200 

•COMPRUEBA QUE LA LINEA NO 

TEN 

GA MAS DE 90 CARACTERES 


210 

• 


220 

IF LEN<lin$> >90 THEN PRINT 

"LI 

NEA 

DEMASIADO LARGA":PRINT:GOTO 

180 

230 

• 


240 

'COMPRUEBA QUE NO ES LA ULTIMA' 

LINEA. 



15. Fusion de ficheros 

La funcion PIP esta disenada, principalmente, 
para intercambiar ficheros entre diversos 
perifericos del ordenador. Pero dada su potencia, 
sirve tambien para otras cosas. Por ejemplo, para 
unir varios ficheros en uno solo (algun usuario de 
Locoscript lo agradecera...) o copiar un 
determinado fichero a partir de una cadena 
determinada. La sintaxis de estos procesos serfa 
la siguiente: 

PIP destino.ext = origenl.ext, origen2.Ext, 
origen3, E 

PIP b: = a:fichero, ext(Qcadena‘Z’) 
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16. Proceso por lotes 

Si se hace un fichero de ordenes, y se le da el 
nombre de PROFILE,SUB, al encender el 
ordenador, dicho fichero se ejecuta 
automaticamente. Esta ventaja se puede 
aprovechar para establecer los parametros que se 
desee fijar desde el principio, y no tener que 
estar tecleando cada vez que se encienda o se 
apague. El fichero del ejemplo, redefine los 
parametros de inicializacion de la impresora, el 
lenguaje, copia algunos programas del sistema 
operativo y da la orden de buscarlos en la unidad 
impllcita M. 



;FICHERO AUTOEJECUTABLE 
;PROFILE.SUB 

; ESTABLECE LOS PARAMETROS DE LA 

» ~ ====: 

IMPRESORA. 


PAPER F 66, L 6,C,P OFF,D 
; ESTABLECE EL JUEGO DE CARACTERES 

EN CASTELLANO. 


LANGUAGE 7 

; COPIA ALGUNOS PROGRAMAS EN LA 


UNIDAD M: 

PIP M:=A: DIR. COM 

PIP M; =A:SHOW. COM 

PIP M:=A:PIP. COM 

PIP M: =A:BASIC.COM 

; ESTABLECE EL ORDEN DE BUSQUEDA 

DE FICHEROS .COM 1 ! EN LA UNIDAD M: 
SETDEF M:,* ~ 




17. Editor de CP/M 


Si lo que se necesita es un editor potcnte, no 
queda mas remedio que utilizar el dc CP/M Por 
si no tiene mucha practica con el, aquf va un 
resumen de las instrucciones del mismo. Le sera 
util tenerlo a la vista. 

OA - Carga el fichero fuente tantas lfneas 
como quepan en la mitad de la memoria 
disponible. 

B - Lleva el puntero al principio del texto (-B 
al final). 

nC - Avanza el puntero n lfneas de texto. 

nD - Borra los n siguientes caracteres al 
puntero. 

nK - Borra las siguientes n lfneas al puntero. 

i - Activa el modo de insercion. 

SAL - Desactiva el modo de insercion. 

n - Lleva el puntero a la lfnea n, y la 
visualiza. 

nT - Visualiza las n lfneas siguientes al 
puntero. 

H - Graba el fichero y continua con la edicion 

E - Graba el fichero y retorna al sistema 
operativo. 

Q - Abandona la edicion sin grabar nada. 


18. Definicion de ventanas 
en Basic 

Si de algo no hay duda, es que el Mallard 
Basic no es precisamente el colmo de la 
comodidad a la hora de gestionar la pantalla. No 
obstante, dado que como todo, los programas 
entran por los ojos, la presentacion de los mismos 
resulta un factor muy importante. Si queremos 
dotar a nuestros programas de algun tipo de 
cabecera, y no queremos estar borrandola y 
volviendola a escribir cada vez que borremos la 
pantalla, hay una solucion. Primero se escribe en 
la pantalla la cabecera, con todo lo que se desee 
poner, y luego se define la ventana de texto con 
un tamano inferior, de manera que todo el resto 
de las funciones del programa funcionen en esa 
segunda ventana, dejando intacta la primera. 

Esto es lo que hace el programa siguiente. 






















10 * ************************* 

20 • AMSTRAD SEMAKAL 

30 1 

40 ' F.J.B.T 1967 

50 * ************************* 

60 • CREACION DE UNA VENTANA 
70 '************************* 

80 * 

90 '* BORRADO DE PANTALLA 
100 CLS$=CHR$(27)+"E"+CHRS<27)+"H" 
110 '* PONE EL CURSOR EN LAS COORDE 
NADAS X, Y 

120 DEF FNlocate$<X,Y)=CHR$<27)+"Y" 
+CHRS <32+Y)+CHRS <32+X): 

130 * 

140 PRINT CLS$ 

150 '* PRESENTA TEXTO EN LA VENTANA 
EXTERIOR 

160 X=1:Y=1:PRINT FNLOCATES<X, Y);"P 
ROGRAMA DE VENTANA 

VENTANA EXTERIOR" 

170 • 

160 * * DEFINIMOS LA VENTANA EXTERIO 
R 

190 PRINT CHR3> <27) ; ” X" ; CHR$ <35) ; CHR 
S> <35 ) ; CHRS <59 > ; CHR$ <115); 

200 '* PRESENTAMOS EL TEXTO EN PANT 
ALLA 

210 PRINT " TEXTO E 

N LA PANTALLA INTERIOR" 

211 INPUT “ PULSE R 

ETURN PARA BORRAR LA PANTALLA INICI 
AL";RES$ 

220 '* BORRAMOS LA PANTALLA 
230 PRINT CLS$ 


19. Pantalla de programacion 

Algunas de las funciones de Basic, como 
LOAD, SAVE, RUN, etc. son usadas muy 
frecuentemente en la programacion. Para ahorrar 
un poco de tiempo, se pueden redefinir las teclas 
de funcion para que escriban por nosotros dichas 
funciones. Y por si tenemos mala memoria y no 
nos acordamos de que tecla corresponde a que 


funcion, en el mas puro estilo americano made in 
Microsoft, lo indicamos en la ultima lfnea de 
pantalla y definimos una ventana un poco mas 
pequena. 

Las fases para haccr esto son; primero, crear 
un fichero de definicion de teclas que contenga 
los comandos deseados. Luego, se crea un 
programa en Basic que en la ultima lfnea indique 
la funcion de cada tecla, y que reduzca la 
ventana de texto, y para refinar el asunto un 
poco, se crea un fichero de ordenes que cargue la 
definicion de teclas, llame al Basic y cjecute el 
programa, dcjando el ordenador listo para 
teclear... 



10 •************************* 

20 * AMSTRAD SEMANAL 

30 1 F.J.B.T 1987 

40 '************************* 

50 * PANTALLA DE PROGRAMACION 
60 '************************* 

70 * 

80 1 * BORRADO DE PANTALLA 
90 CLS$=CHR$ <27)+"E"+CHRS <27)+"H" 
100 '* PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 

110 DEF FNlocate$<X,Y)=CHRS<27)+"Y" 
+CHRS <32+Y)+CHRS <32+X>: 

120 ■* ACTIVAR Y DESACTIVAR VIDEO I 
NVERSO 

130 I$=CHR$ <27)+"p" 

140 V$=CHR$ <27)+"q" 

150 ’ 

160 ' 

170 '* INSTRUCCIONES 
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180 X=5:Y=30: 

190 PRINT CLS® 

200 PRINT FNLOCATE®<X,Y>;I®;"F1";V® 
I" LOAD ” ; 1$; "F2";V$;■ RUN<- ■;I 
$;"F3“;V$;" SAVE ";1$;"F4";V$;" T 
RON ";1$;"F5";VS;* EDIT ";I®;"F 
6" ; V$; " TROFF " ; 1$; "F7" ; V®; " LIST 
";1$;"F8";V$;" FILES 
210 '# DEFINIMOS LA NUEVA VENTANA 
220 PRINT CHR®(27>;"X";CHR®(33>;CHR 
$ <33);CHR® <60);CHR® <121) ; 

230 PRINT CLS® 


;* FICHERO BASIC.SUB 
;* REDEFINICION DE TECLAS 
SETKEYS KEYBASIC. KEY 
;* CARGA EL BASIC Y EL 
PROGRAMA DE PANTALLA 
BASIC PANTALLA 


1 

FICHERO DE REDEFINICION 

* 

DE 

TECLAS, KEYBASIC.KEY 

1 

!ATENCIONj NO COPIAR 

LAS 

! 

LINBAS QUE EMPTEZAN 

CON 

* 

EL 

SIGNO DE PUNTO Y 

COMA 

E 

R81 

"LOAD " 


E 

R83 

"SAVE " 


E 

R85 

"EDIT " 


E 

R87 

"LIST " 


E 

R82 

"RUN -M" 


E 

R84 

"TRON M " 


E 

R86 

"TROFF *M " 


E 

R88 

"FILES " 



20. Proteccion de ficheros 


Siempre hay gente que hace lo que no debe en 
el momento mas inoportuno, fastidiando algo 
valioso. Afortunadamente, en cuanto al borrado 
de ficheros de disco se refiere a su proteccion 
contra miradas indiscretas, CP/M proporciona la 
funcion SET. 

Por un lado, SET permite dar a algun 



programa o fichero el atributo de solo lectura, lo 
cual impide que sea borrado sin haber ejecutado 
otra vez SET retirando dicha orden. 

A> SET fichero.ext(RO) solo lectura 
A > SET fichero.ext(RW) lectura y escritura 
Por el otro lado, SET permite especificar un 
password, o palabra de acceso, y definir los 
atributos de esa clave: 

A > SE P (PROTECT ON) Activa la proteccion. 
A > SET (PROTECT OFF) Desactiva la 
proteccion. 

A > SET fichero (PASSWORD = clave) Asigna la 
clave al fichero. 

A > SET fichero (PROTECT = READ) 

A > SET fichero (PROTECT = WRITE) 

La proteccion puede ser de las siguientes 
maneras: 

READ: La clave hace falta para leer, copiar, 
escribir, borrar o cambiar el nombre al fichero. 

WRITE: No se necesita clave solo para leer el 
fichero. 

DELETE: Solo se requiere clave para borrar o 
cambiar de nombre al fichero. 

NONE: Borra la clave del fichero. 



21. Fecha y hora 

La funcion DATE sirve para fijar la fecha y la 
hora. Combinandola con la funcion INITDIR, 
que rehace el directorio de un disco adecuandolo 
a esto, podemos hacer que cada vez que se grabe 
o actualice un fichero de dicho disco, se grabe el 
dfa y la hora en la que se realizo esta tarea. 

A > DATE 01/19/87 10:15:00 
A > DATE SET 

En este caso, el programa pregunta primero el 
dia, y despues la hora. 























24. Problemas de memoria 


A1 realizar un programa en Basic que utilice 
cadenas en abundancia, si este es largo y hay 
posibilidad de encontrarse con problemas de 
memoria, es conveniente intercalar de vez en 
cuando la sentencia: 

nnn Variable = FRE(“ ”) 

Esta sentencia calcula la cantidad de memoria 
disponible, pero para hacerlo, el ordenador 
realiza una limpieza de memoria que da un 
resultado apreciable si se han utilizado muchas 
cadenas. El unico inconveniente es que retarda el 
programa un poco. 


22. Para consultar 
el directorio 

Probablemente, una de las primeras funciones 
que se aprenden del sistema operativo es DIR, 
que informa de los ficheros que hay en el disco. 
Pero esta orden tiene muchas opciones que 
proporcionan aun mas tnformacion. Veamoslas: 

A > DIR [ATT].—Muestra si los ficheros son 
RW o RO. 

A> DIR [DATE],—Muestra el dfa y la hora 
si se ha hecho INITDIR al disco. 

A> DIR [DRIVE ALL],—Da el directorio de 
todas las unidades de disco. 

A> DIR *.aaa [EXCLUDE],— Da todos los 
ficheros excepto los que cumplen la 
descripcion. 

A> DIR [FULL].—Muestra el nombre, 
tamano, numero de registros, y atnbutos de los 
ficheros. Da los ficheros en orden alfabetico. 
A> DIR [SIZE].—Da el tamano de los 
ficheros. 

A> DIR [USER = ALL],—Muestra los 
ficheros de todas las areas de usuario. 

A+ DIR [SYS].—Muestra solo los ficheros 
con atributo SYS. 

23. Fusion de programas 

Cuando un programa incluye la orden CLIAIN 
o CHAIN MERGE, para incluir otro programa 
durante la ejecucion principal, las funciones 
definidas por el usuario desaparecen, asf como los 
valores de las variables. Para evitar esto, en el 
programa principal hay que 
incluir la orden 

COMMON lista de variables 
oue hace que las variables de la orden anterior 
conserven su valor para poder ser, asf, utilizados 
en el programa resultante. 


25. Busqueda en disco 


Algunas veces se plantea la necesidad de 
determinar por programa la existencia de algun 
fichero en disco, controlandolo, pero evitando 
que de error si el fichero no se encuentra en el. 

El Mallard Basic dispone de una funcion que 
realiza esta tarea a la perfeccion. Su 
funcionamiento es el siguiente: 

BUSCAf = FIND$(fichero$) 

Si el fichero se encuentra en el disco, BUSCAf 
almacenara el nombre del mismo, y si no esta, 
tendra el valor nulo. De esta manera, se pueden 
realizar las acciones oportunas segun se de un 
caso u otro. 





26. Inicializacion 
de la impresora 

El problema de definir codigos de impresion 
mediante Basic por programa, estriba en que en 
caso de que el usuario se vea obligado (o le 
apetezca...) a inicializarlo, estos codigos se 
pierden. Este problema puede ser importante, 
sobre todo en el caso de que se cambie por 
programa el dpo de papel, el salto de pagina o el 
tipo de letra. Para evitar este problema, conviene 
incluir al principio del programa una sentencia 
redefiniendo estos parametros, en caso, claro 
esta, que esto no se haya hecho previamente en 
el sistema operativo con la orden PAPER Para 
ello, basta con situar despues de las definiciones 
de tipos correspondientes, la linea 

000 LPR1NT CHR$(27); “d”; 
que hace que los valores que esten definidos en 
ese momento se conviertan en los valores en caso 
de inicializacion. 


27. Ficheros de ordenes 

La orden de CP/M SUBMIT, permite grabar 
una serie de ordenes del sistema operativo, que al 
llamar al fichero en cuestion, se ejecutan una tras 
otra. Pero sus posibilidades llegan mas alia. Estos 
iicheros pueden contener hasta nueve variables, 
denominadas en el mismo como $1...$9. De esta 
manera, al ejecutar la orden SUBMIT, seguida 
del nombre del fichero, y de las variables que se 
hayan incluido en el mismo, estas se ejecutan 
utilizando los valores dados. Como ejemplo, un 
programa muy corto, pero cuya utilidad no lo es 
tanto. Este programa acepta el nombre de cinco 
ficheros, y los imprime uno a uno. La manera de 
ejecutarlo es teclear: 

A > SUBMIT SPOOL FICHERO, EXT 
FICHERO, 

EXT FICHERO. EXT FICHERO, EXT 

Y permite dejar la impresora imprimiendo esos 
ficheros, mientras nos vamos de vacaciones. Si 
estos no son muy largos, y dada la velocidad de 
la impresora, con un poco de suerte habra 
acabado cuando regresemos... 


; SPOOL,SUB 

; UTILIZANDO LAS FACILIDADES 
; DE LOS FICHEROS .SUB 
; HACEMOS UNA COLA DE IMPRESION 
; DE HASTA 5 FICHEROS 

PIP LST:=A:$1 
PIP LST:=A:$2 
! PIP LST:=A:$3 
PIP LST:=A:®4 
PIP LST:=A:$5 


28. Ficheros de acceso directo 

Los ficheros de acceso directo se abren 
mediante una instruccion OPEN, a la que tiene 
que seguir la instruccion FIELD que define el 
diseno de registro. Pero en determinados casos. 
puede ser util disponer de varios disehos de 
registro para un mismo fichero, segun las 
operaciones que se vayan a hacer con los 
registros. El problema es facilmente solucionable 
anadiendo en su momento mas sentencias 
FIELD, dado que no existe limitacion. 
Simplemente, cada 
vez que el 
programa pasa 
por una 
sentencia 
FIELD, 
redefine el 
registro segun 
las nuevas 
variables y su 
longitud. 

29. Type 

Los que esten acostumbrados a programar en 
Basic Microsoft, el estandar (que no el mejor) de 
los Basic’s,, ya estaran acostumbrados a volver al 
sistema operativo cada vez que quieren visualizar 
un fichero, usando la orden TYPE. Pero Mallard 
Basic dispone de una orden similar para dar un 
vistazo rapido a un fichero sin necesidad de salir 
al CP/M. Esta orden es: 

DISPLAY nombre 

y produce el mismo efecto que la orden TYPE 
nombre, ejecutada desde CP/M. 
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30. A vueltas con 
la impresora 

Si esta haciendo un programa con abundante 
salida impresa, utilice los distintos tipos de letra 
que posee el Amstrad para realizar los datos 
importances. El problema de pasarse el rato 
tecleando una y otra vez los CHRf se puede 
solucionar almaccnandolos al principio del 
programa como cadenas alfanumcricas, como 
hace este programa. Las cadcnas que llevan la N 
delante, desactivan las funciones indicadas. 


10 • 

20 * 
30 ' 
4,0 ' 
50 ' 
60 1 
70 ' 
60 ' 
90 ' 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
DO * 
310 


************************* 
AMSTRAD SEMANAL 

F.J.B. T 1987 
************************* 
CODIGOS DE IMPRESORA 
************************* 


'* DEFINE LOS CODIGOS 
Estreclia$=CHR$ C27) +CHR$ ( 15) 
Ellte$=CHR$ C27> +"M" 
Propor$=CHR& (27 > +" p" +" 1" 
Dablea$=CHR$(27)+"W"+"1" 
NDoblea$=CHR$(27)+" W"+" 0" 
Cursiva$=CHR$(27 > +"4" 

NCurslva$=CHR$(27)+“5“ 
Subraya$=CHR$(27)"+"1" 
NSubraya$=CHR3> (27 ) +" —" +" 0" 


'* PRUEBA DE LOS CODIGOS 
LPRINT estrecbaS;"AAAAAAAAAAAA” 
LPRINT Elite®;"ELITE" 

LPRINT ProporS;"PROPORCIONAL" 
LPRINT DobleaS;"DOBLE ANCHO" 
LPRINT NDobleaS;"ANCHO NORMAL" 
LPRINT CursivaS;" CURSIVA" 
LPRINT NCursivaS;" NO CURSIVA " 
LPRINT SubrayaS;" TEXTO SUBRAYA 

LPRINT NSubrayaS;"NO SUBRAYADO" 



DIN AM IC 

BUSCA PROGRAMAS 
Y PROGRAMADORES 

• PROGRAMAS PARA CBM 64, SPECTRUM, AMSTRAD Y MSX. 

• PROGRAMADORES CON D0MINI0 DE 6502 0 Z80. 



1987 sera un ano que 
dara mucho que hablar. 
Los programas y los 
programadores 
espanoles van a estar 
de moda. 

Es logico, porque 
la calidad siempre 
tiene recompensa. 

SI quieres que 

programar video-juegos 
sea tu profesion: 
Llamanos, demuestra tu 
calidad, puedes 

integrarte en 
una empresa 
joven 
y con 
futuro. 

SI 

deseas 

ver tu 
programa 
comercializado bajo el 
anagrama DINAMIC y 
rentabilizar los meses de 
trabajo que llevas con el, 
no lo dudes, llamanos 
y veremos tu trabajo. 


SI tienes un proyecto 
claro, interesante, que 
consideras innovador 
en este mundo del 
software y puedes 
demostrar tu 
capacidad tecnica 
para llevarlo a cabo. 
Te estamos esperando 

OFRECEMOS: 


Un trabajo con futuro, 
una profesion bien 
remunerada o un 

sistema para 
rentabi¬ 
lizar tu 
aficion 
preferida, 
lo que tu 
elijas. 



Nuestra 
infraes- 
tructura 
tecnica como 
apoyo para 
nuevos 
programas y 
nuevos programadores- 


• incorporacion a un 
equipo de 
profesionales 

• aseso- 
ramien 
to en 
rutinas 

• aporte 
de los 
mejores 





graficos del mercado 

• financiacion de 
equipo informatico 

• ayuda de especialistas 
en musica y sonido 

• realization de versiones 
a otros ordenadores. 

Sistemas de remuneration 
alternatives: 

• Pagos al contado. 

• Contrato de royalties. 

Una comercializacion con 
las mejores compantas 
en todo el mundo: 
ESPANA, GRAN BRETANA, 
AUSTRALIA, 
AUSTRIA 

* BELGICA 

DINA- 
MARCA, 
FINLANDIA 
FRANCIA, 
ALEMANIA, 
ISLANDIA, 
"ITALIA. 

MALTA, NORUEGA, 
SUECIA, SUIZA, 

JAPON, ESTADOS 
UNIDOS. 

Si consideras interesante 
nuestra oferta de trabajo, 
si piensas que puedes 
realizar video-juegos de 
calidad, si has acabado 
un programa, animate, 
danos un telefonazo y 
charlaremos del asunto. 

TEL 2487887 




Plaza de Espana, 18 - Torre de Madrid, 29 - i 
28008 MADRID Telex: 47008 TRNX F 




























Graficos profesionales 
al alcance de todos II) 

Por Alberto Suner 

Vamos a ver hoy la segunda parte del programa que presentamos la 
semana pasada y que nos permitira la generacion de nuestros propios 
sprites. 


CPC 464 


CPC 664 


CPC 6128 

Amstrad PCP 



V 

JL_Jn el capftulo anterior ofrecfamos el listado 
de un programa Basic que, como indicabamos,. 
necesitaba de una rutina en Codigo Maquina. 
Esta es la que vamos a ver en el presente artfculo. 

Este bloque en Codigo Maquina, es el que 
realmente nos va a permitir confeccionar nuestros 
propios graficos, con la gran ventaja de que 
cualquiera de las figuras cjue se realicen, podran 
ser utilizadas en cualquiera de los modos de 
pantalla que posee nuestro ordenador. 

Asf pues, este programa generador de graficos 
no se parece a ningun otro ya que, antes de 
empezar a confeccionar un grafico, no piden el 
modo de pantalla en el que deseamos trabajar; en 
cambio, el que os presentamos a continuacion, 
nos va a permitir realizar nuestro dibujo y luego 
elegir en que modo de pantalla deseamos 
almacenarlo. 

Como se puede comprobar, esto representa 
una gran ventaja, ya que una vez acabado 
nuestro sprite, podremos visualizar el mismo en 
los tres modos de pantalla, lo cual nos ayudara a 
decidir en que modo deseamos trabajar, 
dependiendo de la brillantez del grafico en cada 
uno de dichos modos. 

Dado que en los modos de pantalla 1 y 0 
existen diferentes tipos de tinta, el programa 
confeccionara el sprite siempre con la tinta 1, 
independientemente del modo de pantalla en el 
que nos encontremos. 


En realidad esto no es ningun inconveniente, 
ya que para cambiar su color cuando sea 
utilizado, unicamente tiara falta modificar el color 
para la pluma 1, mediante una instruccion del 
tipo: 

INK 1, X 

La base sobre la cual podremos realizar 
nuestro grafico, sera una rejilla del tamano 
elegido mediante el programa Basic cuando este 
nos pregunte por la altura y anchura del sprite. 

Ademas de esta rejilla, en la parte superior 
derecha se nos mostrara una copia del grafico 
que se esta realizando en dimensiones reales por 
cada uno de los tres modos de pantalla del 
Amstrad. 

Esto se podra observar ya que encima de cada 
uno de los dibujos aparecera el modo en el que 
se esta realizando de una forma semejante a la 
siguiente: 

modo 2 
modo 1 
modo 0 

Veamos a continuacion cada una de las 
opciones que nos sera posible utilizar mediante 
este programa. 

En primer lugar tenemos las teclas del cursor, 
que nos permitiran el movimiento a traves de la 
rejilla: 
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Grdficos por 

ordenador 


LISTADO DESENSAMBLADO 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
;i 
t '7 

13 

H 


OftS 

LD 

LD 

LO 

Sift 

SLA 

SLA 

LO 

10 

LO 

LD 

SLA 

SLA 

SLA 


#9000 

HL,#0303 

fi,L 

(A0IC),A 

H 

ri 

K 

(OIHSRAJ.HL 

A,H 

(sopeb;,s 

A.L 

A 

li 

A 

A 


58 reel: 

S3 

80 

61 

62 rec 2 : 

63 

64 

65 

66 f£C3: 
6? 

68 

63 

70 f£C4: 

71 


LD A, 8 
CALL mn 
JR Z.it'CZ 
CALL I2QUI 

im a 

CALL IBBlt 
Jfi Z,T£C3 
CALL ARRIB 
LO A,2 

CALL #6816 
-I 2,1664 
CALL ABAJil 
LO A, 9 

CALL #8816 



15 

SLA A 

72 

Jfi Z, 1EC5 

115 

LO B',0 

1S8 

REF 


16 

LD (iOPtOi.A 

73 

CALL SET 

116 

LO A,CAOIC) 

1S9 RES3: 

RES 

3,(HL) 

17 

LD HL,#0102 

74 fees: 

LO A,23 

117 

LD 0,0 

160 

Rtf 


18 

LO {PDSELt),HL 

75 

CALL #BB1E 

118 

LO 6, A 

161 RES2: 

RES 

2,(hl) 

13 

CALL BORRAR 

76 

Jfi Z,F6C6 

119 BURES: 

ADD HL,DL 

162 

Rtf 


20 

JP ItCLA 

77 

CALL RES 

120 

DJNZ BURES 

163 RESi: 

RES 

l.tML) 

21 borrar: 

CALL CLS 

78 I6C6: 

LO A,S4 

121 

SCF 

164 

Rtf 


22 

LO 06,#0102 

79 

CALL IBB1E 

t 

CCf 

165 RESO: 

RES 

0,(HL# 


LD fl.nOPEB) 


80 


j« z, reel 


123 


SBC HL,Dt 166 


Rtf 


24 

LO 8, A 

81 

CALL LIHBUF 

124 

POP 

Q£ 

167 SET: 

CALL F'INCUA 

25 BUCli: 

RUSH BC 

82 

CALL SufiftAR 

125 

i.D 

A.E 

168 

LO OE, (POSE! 

26 

PUSH 06 

83 TEC7: 

RE'i 


126 

CP 

5 

169 

SRL t 

27 

LD A,(ABIC) 

84 DEREC: 

LO 

HL,CPUSFlE) 

12? 

JR 

C, PARES 

170 

LO HL.eUFftl 

28 

SLA A 

85 

LD 

A,(TOPED) 

128 

sue 

8 

171 

RUSH DE 

29 

SLA A 

86 

CP 

L 

129 

INC 

HL 

172 

LO 8,0 

30 

SLA A 

87 

RET 

l 

130 

CF' 

9 

173 

LD A,(ABIC) 

31 

LD 8,A 

88 

INC 

L 

131 

JR 

C,PARES 

174 

LO 0,0 

32 8UCI2: 

PUSH ec 

89 

INC 

L 

132 

sue 

8 

175 

LD t, ft 

33 

RUSH D£ 

30 

JP 

PIMPLE 

133 

INC 

HL 

176 SUSEf: 

ADO HL.DE 

34 

LO IX.CUAOfiO 

31 I2QUI: 

LD 

HL, (F'DSFLt) 

134 PARES: 

CP 

i 

17? 

DJNZ BUSET 

35 

LD BC,#0802 

92 

LO 

fl.L 

135 

JR 

2,RES? 

178 

bLr 

36 

CALL INPRE 

93 

CP 


136 

CP 

n 

179 

CCF 

37 

RDP Dt 

94 

RET 

? 

137 

JR 

2.RES6 

180 

SBC HL,OE 

38 

INC E 

95 

DEC 

L 

1-38 

~r> 

*.-r 


181 

POP DE 

33 

INC E 

96 

DEC 

L 

139 

JR 

Z,RES5 

182 

LO A, £ 

40 

pop ec 

97 

JP 

PINFLE 

140 

CP 

£ 

V 

183 

CF' 9 

41 

DJNZ BUCI2 

98 ARRIS*. 

LO 

HL.CPOSflEJ 

141 

JR 

Z,RES4 

184 

JR C.PAStf 

42 

POP 06 

33 

LD 

A,H 

142 

CP 

5 

185 

SUB 8 

43 

INC D 

100 

CP 

1 

143 

JR 

2.RES3 

186 

INC HL 

44 

POP 8C 

101 

RET 


144 

CP 

6 

187 

CF' 9 

45 

DJNZ BUCI1 

102 

DEC 

H 

145 

JR 

Z.RES2 

188 

Jfi C,PAS£: 

46 

LO 06,(POSfLE) 

103 

JP 

PINFLE 

146 

CP 

7 

183 

SUB 8 

47 

LD IK.FLECHA 

104 ABAJO: 

LO 

HL,(POSPLE) 

147 

JR 

Z,RESI 

130 

INC HL 

48 

LO 8C,#0802 

105 

LD 

A,(TDF‘EB5 

148 

CP 

8 

191 RASE): 

CP 1 

49 

CALL INPRE 

106 

CP 

H 

149 

JR 

2,RESO 

192 

Jfi Z,$t;7 

50 

R6T 

107 

RET 


150 

REF 


133 

CF' 2 

51 *L+ 


108 

INC 

H 

151 RES?: 

RES 

7,(HL) 

194 

jfi z,sere 

52 ftCLA: 

CALL PAUSA 

109 

JP 

PINFLE 

152 

REF 


195 

CP 3 

53 ti¬ 


110 RES: 

CALL pinvac 

153 RES6: 

RES 

6,(HL) 

136 

JR Z,S£fS 

lt 

LO A,1 

111 

LD 

DE, (F'DSFLt) 

154 

REF 


197 

CP 4 

55 

CALL IBB1E 

112 

SRI 

£ 

155 RES5: 

RES 

5,(HL) 

198 

JR Z,S£f4 

58 

jfi z,reel 

113 

LD 

HL, BUFFER 

156 

Rtf 


139 

CP S 

57 

CALL DEREC 

114 

PUSH OE 

157 RES4: 

RES 

4,(HL) 

200 

Jfi Z,BEi3 1 
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Cursor arriba Arriba 
Cursor abajo Abajo 
Cursor derecha Derecha 
Cursor izquierda Izquierda 

Existen otras dos teclas que son las que nos 
van a permitir pintar y borrar puntos en la 
rejillas de trabajo, estas son las siguientes: 

Copia: Dibujar 
Control: Borrar 

Se ofrece ademas una ultima opcion que nos 
permitira borrar de la pantalla todo lo que hemos 
hecho hasta el momento; esto lo conseguiremos 
pulsando la tecla «B». 

Vamos a centrar ahora nuestra atencion en las 
diferentes rutinas que posee nuestro programa en 
Codigo Maquina, ya que algunas de ellas pueden 
resultar muy mteresantes para los aficionados a la 
programacion en Codigo Maquina. 


Con este programa en C.M. podemos 
realizar nuestros Sprites, elegir en que 
modo de pantalla almacenarlos y 
desplazarlos por la pantalla. 


En primer lugar, cuando se llama al programa 
por primera vez, existen una serie de 
instrucciones que permiten su initialization, es 
decir, colocan en su valor inicial las diferentes 
variables de que consta el programa. A esta 
rutina no deberemos llamarla de nuevo hasta que 
no se desee reinicializar el programa. 

Seguidamente nos encontramos con la rutina 
encargada de generar la rejilla en la cual vamos a 
realizar nuestro grafico, esta rejilla debera ser de 
las dimensiones que nosotros hayamos elegido, 
para lo cual se toman los datos de las variables 
correspondientes. 

A continuacion, nos encontramos con la rutina 
que se encarga de la lectura del teclado, que es al 
mismo tiempo el bucle principal del programa. 

En este punto es donde el Basic esta llamando 
continuamente al Codigo Maquina, ya que desde 
dicho bucle se puede acceder a cualquiera de las 
opciones que presenta el programa. 

A partir de aqui nos encontramos con las 
rutinas encargadas del movimiento de nuestro 
punto de mira a traves de la rejilla, y las que nos 
permiten imprimir o borrar un cuadrado en la 
misma. 

Tambien se encuentran en este punto las 
diferentes rutinas que se encargan de la 
impresion en pantalla de los diferentes graficos. 

Las dos rutinas que vienen a continuacion 
pueden resultar de gran utilidad, ya que son las 
que se encargan de imprimir en la pantalla de 
trabajo (la pantalla de trabajo utilizada es el 
modo 2) los graficos que corresponderxan a los 
modos 0 y 1. Estas rutinas son las siguientes: 


MODE1 

MODEO 

Veamos, por ejemplo, como actua la rutina 
que se encarga de transformar nuestro dibujo 
para que aparezca en pantalla como si se tratase 
de una figura realizada en modo 1. 

Para conseguir este efecto, debe duplicar cada 
uno de los bytes que componen nuestro sprite, 
esto es debido a que en el modo de alta 
resolution existen ocho bytes significativos, y en 
cambio en el modo 1 unicamente existen cuatro. 

Asf pues, un byte cualquiera correspondiente a 
nuestro grafico, quedarfa transformado de la 
forma que indicamos seguidamente: 

Byte en modo 2... Bytes resultantes 
10011101 11000011 
11110011 

Veamos pues que cada uno de los bits resulta 
duplicado para que aparezca como si se tratara 
de un dibujo en modo 1. 

Ahora bien, el grafico resultante de la 
aplicacion de esta rutina, no podra ser utilizado 
en el modo 1 de pantalla, sino que unicamente 
sirve para que podamos ver nuestro dibujo en la 
pantalla de trabajo (que, repetimos, se trata de 
modo 2), tal como aparecerfa si lo 
almacenaramos en modo 1, para poder trabajar 
en dicho modo. 

Asf pues, como podemos comprobar, esta 
rutina no realiza el trabajo de pasar un grafico de 
un modo a otro, sino que unicamente desarrolla 
una magnification del sprite para que podamos 
visualizarlo tal y como resultarfa en dicho modo. 

Las rutinas que realmente se encargan de 
traspasar nuestro grafico de un modo a otro de 
pantalla son las que indicamos a continuacion: 

CONVE1 

CONVEO 

En este caso, sf que realmente lo que se hace 
es convertir un grafico de modo 2 a los otros 
modos de pantalla, por lo que ahora ya no se 
trata de magnificar cada uno de los bits que 
forman el grafico, sino que se trata de 
duplicarlos, teniendo en cuenta la information 
que deben llevar cada uno de los dos modos de 
pantalla. 

Veamos pues cual serfa el resultado que 
obtendrfamos de un byte cualquiera en modo 2, 
una vez transformado a modo 0, teniendo en 
cuenta que por cada byte de los primeros, 
obtendrfamos cuatro para el modo 0. 

Byte en modo 2...Byte en modo 0 
10110100 10000000 
11000000 
01000000 
00000000 

Como podemos comprobar, los bytes 
resultantes en modo 0, tienen todos los seis bits 
inferiores en cero; esto es asf, ya que el grafico 
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201 

CP 

6 

256 

PUP 

HL 

311 

INC IX 

350 

SLA C 

202 

JR 

Z,S£f2 

25? 

ID 

(JWLU.KI 

312 

DJNZ P.8UC1 

351 

CALL IMPfit 

203 

CP 

7 

258 

tx 

ue,HL 

313 

PDP HL 

352 

Rtl 

204 

JR 

i, sen 

259 

LD 

IX,FLtCHA 

314 

pup ec 

353 


205 

CP 

8 

260 

LD 

BC,#0802 

31S 

DJNZ P.BUC 

354 .HjOEO: 

LD HL,BUFFE2 

206 

JR 

Z,S£fO 

261 

CALL 

IHPRt 

316 

Rtr 

355 

LD 0E.BUFFE2+1 

207 

RtT 


262 

XDR 

A 

317 


356 

LD BC,287 

208 stf?: 

Stf 

MHL) 

263 

LD 

(FL01A),A 

318 MODE 1 : 

LD HL.BUfFt! 

357 

LD (HL),0 

209 

RtT 


264 

LD 

BE,10334 

319 

LD Dt,8UF££l+l 

358 

LDIR 

210 St!6m 

sec 

6,0-0 

265 

LD 

IX,BUFFER 

320 

LD BC,143 

359 

LD HL,8UFF£2 

211 

Rtl 


266 

LD 

BC,CDIH6RA) 

j"» i 

LD (HL),0 

360 

LD Dt,BUFFER 

212 S6T5: 

ser 

S,(Hl5 

26? 

CALL 

IHPRt 

322 

LDIR 

361 

LD 6,72 

213 

RtT 


268 

CALL 

Hucti 

3? 3 

LD D£,8UPF£R 

362 BUCHO: 

LD A,(Dt) 

214 S6F4: 

ser 

4,(HL) 

269 

CALL HODtO 

324 

LD HL,BUi F L1 

363 

eir 7,A 

215 

RtT 


270 

CALL CDNUeO 

32S 

LD 6,72 

364 

CALL NZ,Stl76 

216 S6f3: 

Stf 

3, (HU 

271 

CALL CDNVtl 

326 BUCHi: 

LD fl,(DE) 

365 

CALL NZ,StrS4 

217 

RET 


272 

lif 

A,iA£ 

327 

eir 7,A 

366 

BII 6,A 

218 S6F2: 

ser 

2,(HL) 

273 

LD 

(FLUlA),A 

328 

CALL HZ,SET 76 

367 

CALL NZ,S£f32 

219 

Rtl 


274 

per 


329 

BIT 6,A 

368 

CALL N2.SEI10 

220 sen: 

ser 

1,(HL) 

2/5 IHPRt: 

LD 

Hl,#C000-80 

330 

CALL NZ.SE1S4 

369 

INC HL 

221 

Rtl 


276 

LD 


331 

Sir 5,A 

370 

BII 5,A 

222 sero: 

ser 

0, < HL) 

2?7 

LD 

(AL1D) ,A 

332 

CALL N2,S£T32 

37! 

CALL RZ,S£r?6 

223 

Rtl 


278 

LD 

A,C 

333 

81r 4,A 

372 

CALL NZ,5t154 

224 PINVAC: 

LD 

ee,(PosFLt) 

279 

LD 

CfiNCHfJ) ,A 

334 

CALL HZ.StTIO 

373 

eir 4 ,a 

225 

LD 

IX,CUADRD 

280 

LD 

6,8 

335 

INC HL 

374 

CALL NZ,Stl32 

226 

LD 

8C,10802 

281 

LD 

D,0 

336 

BII 3,A 

375 

CALL NZ,S£I10 

22? 

XQR 

A 

282 

DEC 

£ 

337 

CALL NZ,S£F?6 

376 

INC HL 

228 

LD 

CFLOTA).A 

283 

ADD 

Hl, DE 

338 

BII 2,A 

377 

61f 3,A 

229 

CALL 

IHPRt 

284 

t s\ 

D£,80 

339 

CALL NZ,S£F54 

378 

CAll NZ.SE176 

230 

LD 

A,iA£ 

285 S_BUC: 

ADD 

HL, DE 

340 

BIT 1,A 

379 

CALu NZ.8£FS4 

231 

LD 

(FLOTA).A 

28-6 

0JN2 

s sue 

341 

CALL NZ,S£F32 

380 

BII 2,A 

232 

LD 

OF, (Pl‘SFl£> 

287 

LD 

A~(AL1D) 

342 

BII 0,A 

38! 

call nz, se f 3 j 

233 

LD 

IX,FLtCHA 

288 

LD 

8, A 

343 

call NZ.seno 

382 

CALL NZ.StllO 

234 

LD 

SC,10802 

289 

JR 

CDLOC 

344 

INC HL 

383 

INC HL 

235 

CALL 

IHPRt 

290 p_euc: 

LD 

A,H 

345 

INC D£ 

384 

BIT l.A 

236 

Rtf 


29! 

AND 

56 

346 

DJNZ BUCHl 

385 

CALL NZ,Str?6 

23? PINCUA: 

LD 

Dt,(PDSFLt) 

292 

CP 

56 

347 

LD 0£,10336 

386 

CALL NZ,SET54 

238 

LD 

IX,CUADH 

293 

JR 

2,P.PAS 

348 

LD IX.BUFFtl 

387 

eir o. a 

239 

LD 

BC,#0802 

294 

LD 

A,H 

349 

LD 6C,lDIHbRA \m 

388 

CALL NZ.SE132 ► 

240 

XDR 

A 

295 

ADD 

A,8 






241 

242 

243 

244 

245 
245 
24? 

248 

249 

250 

251 PINFLt: 

252 

253 

254 


LD (FUJI A), A 
CALL IKPfit 
LD A,#At 
LD (FLOTA),A 
LD Dt, (F'DSFLt) 
LD IX,FLtCHA 
LD BC,#0802 

CALL IMPftfc 
RtT 

PUSH HL 

LD D£,(PuSfLt> 
LD I)!, FLtCHA 

LD BC,#0602 
CALL IHF'Rt 


296 

29? 

298 P.PAS: 

299 

300 

301 

302 

303 CfJLUC: 

304 

305 

306 

30? P BUCi: 

308 FLUfA: 

309 

310 


LD 

JR 

LD 

LD 

XQR 

LD 


H>A 

CDLOC 

D£ t 0080 

A,H 

56 

H,A 


ADD HL,D£ 
PUSH BC 
PUSH HL 


LD 

LD 

LD 


A,(ANCHu) 
8,A 

A,(IX+0) 


m (hlj 

LD (HL) f A 
INC HL 










resultante se obtendra en tinta 1, y para dicha 
tinta en modo 0 unicamente contienen 
information los dos bits superiores. 

Con todo lo visto hasta el momento, 
deberemos ser capaces de generar nuestros 
propios sprites. 

Para ello, unicamente se debera copiar el 
listado ensamblador que aparece al final del 
articulo, y salvarlo en disco como codigo objeto 
con el nombre de «Gensprit», para que el 
programa en Basic visto la semana pasada pueda 
cargarlo en memoria, y a si estar en condiciones 


de utilizar el generador de sprites. 

Para aquellos que no posean ensamblador o no 
les interese el Codigo Maquina, hemos preparado 
un programa Basic cargador con el cual, una vez 
ejecutado correctamente, podran salvar el bloque 
en Codigo Maquina de la forma que indicamos a 
continuation: 

SAVE“GENSPRIT”,B,&9000,&46B 

para que de esta forma no haya ningun tipo de 
problema al ejecutar el programa Basic que 
ofreciamos en el capitulo anterior. 


m 

CALL 

NZ.SEFIO 

435 

LD 

(HU,A 

390 

INC 

HL 

436 

INC 

HL 

391 

INC 

0£ 

437 

INC 

DE 

332 

DJNZ 

BUCKO 

438 

POP 

BC 

393 

L0 

DE,10344 

439 

DEC 

6C 

394 

LD 

IX.6UFFE2 

440 

L0 

A,8 

395 

L0 

BC.tDIfiBRA) 

441 

OR 

C 

336 

SLA 

C 

442 

JR 

HZ,BUS 

397 

SLA 

C 

443 

LD 

HL, 0 

398 

CALL 

IHPRE 

444 

REF 


393 

re r 


445 CONI 

ld 

HL,STuRl 

400 



446 

L0 

(HD,0 

401 SET76: SEf 

7.CHL) 

447 

LD 

6,4 

402 

SET 

6,(HL) 

448 euci 

RRA 


403 

REf 


449 

RR 

(HU 

404 SET 54: SET 

5, (HD 

450 

DJNZ 

BUG 

405 

SEF 

4, (HU 

451 

INC 

HL 

406 

RET 


452 

L0 

(RD,0 

407 SETS 

12: SEF 

3, (HU 

453 

LD 

6,4 

408 

SET 

2, (hi) 

454 BUG 

:: RRA 


403 

REF 


455 

RR 

(HL) 

410 SET10: SET 

1, (HL) 

456 

ojnz 

BUC2 

411 

SET 

0,(HL > 

457 

RET 


412 

RET 


458 j 



413 UH6UF: L0 

HL,BUFFER 

459 ; 



414 

L0 

DE,BUFFER+1 

460 }C0NVERS0R-DE-BY1ES- 

415 

L0 

8C,71 

461 ; 



416 

LD 

(HL),0 

462 C0NVE0: LD 

DE,BUFFER 

417 

LOIR 

463 

L0 

HL.SRAF0 

416 

RET 


464 

LD 

BC, 72 

419 ; 



465 HUS: 

PUSH 

BC 

420 ; 



466 

PUSH 

HL 

421 jCONVERSOR-Dt-BYIEt- 

467 

L0 

A, (DE) 

422 5 



468 

CALL 

SDNV 

423 CllNVEl: LD 

DE,BUFFER 

463 

POP 

HL 

424 

L0 

HL,6RAF1 

470 

LD 

IX,STORE 

425 

LD 

DC, 72 

471 

L0 

A,(IX+3) 

426 BUS; 

: PUSH 

i ec 

472 

LD 

(HL),A 

427 

PUSH 

! HL 

473 

INC 

HL 

428 

L0 

A,(0E) 

474 

LD 

A.GX+2) 

429 

CALL 

C0NV 

475 

L0 

(HL),A 

430 

POP 

HL 

476 

INC 

HL 

431 

LD 

A,(ST0Ri+l) 

477 

L0 

A,( IX+f ) 

432 

L0 

(HU, A 

478 

LD 

(HL),A 

433 

INC 

HL 

473 

INC 

HL 

434 

L0 

A,(SF0R1) 

480 

LD 

A,(IX+G) 


481 


L0 

(HU, A 

52 7 


PUSH HL 

482 


INC 

HL 

528 


LD D,H 

483 


INC 

0E 

529 


L0 £,L 

484 


POP 

BC 

530 


INC DE 

485 


DEC 

BC 

531 


L0 BC,48 

486 


LD 

A,B 

532 


LD (HL),0 

487 


OR 

C 

533 


LOIR 

488 


JR 

NZ.HUS 

534 


POP HL 

489 


REF 


535 


L0 0E.2048 

430 

SDNV: 

LD 

HL,STORE 

536 


ADD HL.DE 

491 


LD 

(HU,0 

537 


POP BC 

432 


LD 

B,2 

538 


DJNZ BUCLl 

493 

XUCl: 

RRA 


539 


POP HL 

434 


RR 

(HL) 

540 


LD DE,80 

495 


DJNZ 

XUCl 

541 


A00 HL.0E 

496 


INC 

HL 

542 


POP BC 

497 


L0 

(HD,0 

543 


0.JNZ BUCLS 

498 


LD 

6,2 

544 


RET 

499 

XUC2: 

RRA 


545 

alto: 

BtfS 1 

500 


RR 

(HL) 

546 

ANCHD: 

DEFS 1 

501 


DJNZ 

XUC2 

547 

TOPES: 

0EFS 1 

502 


INC 

HL 

548 

TOPED: 

DEFS 1 

503 


L0 

(HL),0 

549 

ABIC: 

OEFS 1 

504 


LD 

6,2 

550 

PDSFLE: 

DEFS 2 

505 

BUC3: 

RRA 


551 

oshsra: 

OEFS 2 

506 


RR 

(HU 

552 

siori: 

DEFS 2 

507 


0JNZ 

6UC3 

553 

store: 

OEFS 4 

508 


INC 

HL 

554 

flecha: 

DEFB 0,0,0,0,8,16,4,32 

503 


L0 

(HL),0 

555 


0EF8 4,32,8,16,0,0,0,0 

510 


LD 

6,2 

556 

cuadr: 

DEFB 255,255,128,1,159 

511 

6UC4: 

RRA 




249,159,249 

512 


RR 

(HL) 

557 


DEFB 159,249,159, 

513 


0JNZ 

BUC4 



249,128,1,255,255 

514 


RET 


558 

CUADR0: 

DEFB 255,255,128, 

SIS 

PAUSft: 

L0 

8C,5000 



1,128,1,128,1 

516 

pads: 

DEC 

BC 

559 


DEFB 128,1,128, 

517 


L0 

A,8 



1,128,1,255,255 

518 


DR 

C 

560 

*L+ 


519 


JR 

NZ.PAUS 

561 

BUFFER: 

OEFS 72 

520 


RET 


562 

BUF PEI: 

DEFS 144 

521 

CIS; 

LI) 

BL.DC000 

563 

8UFFE2: 

OEFS 288 

522 


LD 

6,24 

564 

6RAF1: 

DEFS 144 

523 

BUCLS: 

PUSH 

BC 

565 

SRAP0: 

OEFS 288 

524 


PUSH 

HL 




525 


LO 

6,8 




526 

BUCLl: 

PUSH 

BC 
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PROGRAMA 

CARGADOR 


10 FOR N=49000 TO S946B 
20 READ ft:SUHA=SUNA+A 
30 POKE N,A 
40 NEXT 

SO IF SUMA0124177 THEN PRINT 'ERROR 
EN DATAS* 

60 DATA 33,3,3,125,50,48,148 
70 DATA 203,36,203,36,203,36,34 
80 DATA 51,148,124,50,46,148,125 
90 DATA 203,39,203,33,203,39,203 
100 DATA 39,50,47,148,33,2,1 
110 DATA 34,49,148,205,44,144,195 
120 DATA 104,144,205,6,148,17,2 
130 DATA 1,58,46,148,71,197,213 
140 DATA 58,48,148,203,39,203,39 
150 DATA 203,39,71,197,213,221,33 
160 DATA 91,148,1,2,8,205,58 
170 DATA 146,209,28,28,193,16,238 
180 DATA 209,20,193,16,221,237,91 
190 DATA 49,148,221,33,59,148,1 
200 DATA 2,8,205,58,146,201,205 
210 DATA 253,147,62,1,205,30,187 
220 DATA 40,3,205,180,144,62,8 
230 DATA 205,30,187,40,3,205,193 
240 DATA 144,175,205,30,187,40,3 
250 DATA 205,205,144,62,2,205,30 
260 DATA 187,40,3,205,216,144,62 
270 DATA 9,205,30,187,40,3,205 
280 DATA 72,145,62,23,205,30,187 
290 DATA 40,3,205,228,144,62,54 
300 DATA 205,30,187,40,6,205,88 
310 DATA 147,205,44,144,201,42,49 
320 DATA 148,58,47,148,189,200,44 
330 DATA 44,195,248,145,42,49,148 
340 DATA 125,254,2,200,45,45,195 
350 DATA 248,145,42,49,148,124,254 
360 DATA 1,200,37,195,248,145,42 
370 DATA 49,148,58,46,148,188,200 
380 DATA 36,195,248,145,205,172,145 
390 DATA 237,91,49,148,203,59,33 
400 DATA 107,148,213,66,58,48,148 
410 DATA 22,0,95,25,16,253,55 
420 DATA 63,237,82,209,123,254,9 
430 DATA 56,10,214,8,35,254,9 
440 DATA 56,3,214,8,35,254,1 
450 DATA 40,29,254,2,40,28,254 
460 DATA 3,40,27,254,4,40,26 
470 DATA 254,5,40,25,254,6,40 
480 DATA 24,254,7,40,23,254,8 
490 DATA 40,22,201,203,190,201,203 
500 DATA 182,201,203,174,201,203,166 
510 DATA 201,203,158,201,203,150,201 
520 -DATA 203,142,201,203,434,20^205 
530 DATA 210,145,237,91,49,148,203 
540 DATA 59,33,107,148,213,66,58 
550 DATA 48,148,22,0,95,25,16 
560 DATA 253,55,63,237,82,209,123 
570 DATA 254,9,56,10,214,8,35 
580 DATA 254,9,56,3,214,8,35 
590 DATA 254,1,40,29,254,2,40 
600 DATA 28,254,3,40,27,254,4 
610 DATA 40,26,254,5,40,25,254 


620 DATA 6,40,24,254,7,40,23 
630 DATA 254,8,40,22,201,203,254 
640 DATA 201,203,246,201,203,238,201 
650 DATA 203,230,201,203,222,201,203 
660 DATA 214,201,203,206,201,203,198 
670 DATA 201,237,91,49,148,221,33 
680 DATA 91,148,1,2,8,175,50 
690 DATA 116,146,205,58,146,62,174 
700 DATA 50,116,146,237,91,49,148 
710 DATA 221,33,59,148,1,2,8 
720 DATA 205,58,146,201,237,91,49 
730 DATA 148,221,33,75,148,1,2 
740 DATA 8,175,50,116,146,205,58 
750 DATA 146,62,174,50,116,146,237 
760 DATA 91,49,148,221,33,59,148 
770 DATA 1,2,8,205,58,146,201 
780 DATA 229,237,91,49,148,221,33 
790 DATA 59,148,1,2,8,205,58 
800 DATA 146,225,34,49,148,235,221 
810 DATA 33,59,148,1,2,8,205 
820 DATA 58,146,175,50,116,146,17 
830 DATA 52,3,221,33,107,148,237 
840 DATA 75,51,148,205,58,146,205 
850 DATA 128,146,205,212,146,205,162 
860 DATA 147,205,102,147,62,174,50 
870 DATA 116,146,201,33,176,191,120 
880 DATA 50,44,148,121,50,45,148 
890 DATA 66,22,0,29,25,17,80 
900 DATA 0,25,16,253,58,44,148 
910 DATA 71,24,21,124,230,56,254 
920 DATA 56,40,6,124,198,8,103 
930 DATA 24,8,17,80,0,124,238 
940 DATA 56,103,25,197,229,58,45 
950 DATA 148,71,221,126,0,174,119 
960 DATA 35,221,35,16,246,225,193 
970 DATA 16,215,201,33,179,148,17 
980 DATA 180,148,1,143,0,54,0 
990 DATA 237,176,17,107,148,33,179 
1000 DATA 148,6,72,26,203,127,196 
1010 DATA 68,147,203,119,196,73,147 
1020 DATA 203,111,196,78,147,203,103 
1030 DATA 196,83,147,35,203,95,196 
1040 DATA 68,147,203,87,196,73,147 
1050 DATA 203,79,196,78,147,203,71 
1060 DATA 196,83,147,35,19,16,210 
1070 DATA 17,59,3,221,33,179,148 
1080 DATA 237,75,51,148,203,33,205 
1090 DATA 58,146,201,33,67,149,17 
1100 DATA 68,149,1,31,1,54,0 
1110 DATA 237,176,33,67,149,17,107 
1120 DATA 148,6,72,26,203,127,196 
1130 DATA 68,147,196,73,147,203,119 
1140 DATA 196,78,147,196,83,147,35 


1150 DATA 203,111,196,68,147,196,73 
1160 DATA 147,203,103,196,78,147,196 
1170 DATA 83,147,35,203,95,196,68 
1180 DATA 147,196,73,147,203,87,196 
1190 DATA 78,147,196,83,147,35,203 
1200 DATA 79,196,68,147,196,73,147 
1210 DATA 203,71,196,78,147,196,83 
1220 DATA 147,35,19,16,184,17,68 
1230 DATA 3,221,33,67,149,237,75 
1240 DATA 51,148,203,33,203,33,205 
1250 DATA 58,146,201,203,254,203,246 
1260 DATA 201,203,238,203,230,201,203 
1270 DATA 222,203,214,201,203,206,203 
1280 DATA 198,201,33,107,148,17,108 
1290 DATA 148,1,71,0,54,0,237 
1300 DATA 176,201,17,107,148,33,99 
1310 DATA 150,1,72,0,197,229,26 
1320 DATA 205,139,147,225,58,54,148 
1330 DATA 119,35,58,53,148,119,35 
1340 DATA 19,193,11,120,177,32,232 
1350 DATA 33,0,0,201,33,53,148 
1360 DATA 54,0,6,4,31,203,30 
1370 DATA 16,251,35,54,0,6,4 
1380 DATA 31,203,30,16,251,201,17 
1390 DATA 107,148,33,243,150,1,72 
1400 DATA 0,197,229,26,205,210,147 
1410 DATA 225,221,33,55,148,221,126 
1420 DATA 3,119,35,221,126,2,119 
1430 DATA 35,221,126,1,119,35,221 
1440 DATA 126,0,119,35,19,193,11 
1450 DATA 120,177,32,218,201,33,55 
1460 DATA 148,54,0,6,2,31,203 
1470 DATA 30,16,251,35,54,0,6 
1480 DATA 2,31,203,30,16,251,35 
1490 DATA 54,0,6,2,31,203,30 
1500 DATA 16,251,35,54,0,6,2 
1510 DATA 31,203,30,16,251,201,1 
1520 DATA 136,19,11,120,177,32,251 
1530 DATA 201,33,0,192,6,24,197 
1540 DATA 229,6,8,197,229,84,93 
1550 DATA 19,1,48,0,54,0,237 
1560 DATA 176,225,17,0,8,25,193 
1570 DATA 16,236,225,17,80,0,25 
1580 DATA 193,16,224,201,0,0,0 
1590 DATA 0,0,0,0,0,0,0 
1600 DATA 0,0,0,0,0,0,0 
1610 DATA 0,0,8,16,4,32,4 
1620 DATA 32,8,16,0,0,0,0 
1630 DATA 255,255,128,1,159,249,159 
1640 DATA 249,159,249,159,249,128,1 
1650 DATA 255,255,255,255,128,1,128 
1660 DATA 1,128,1,128,1,128,1 
1670 DATA 128,1,255,255,0,0,0 
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jPuede ganar un equipo de alta 
fidelidad con Compact Disc! 



Las posibilidades sonoras de los ordenadores Amstrad estan fuera 
de toda duda. Se puede hacer musica con ellos y buena. Por esta 
razon, AMSTRAD Semanal organiza este concurso, ofreciendo como 
premio a los ganadores un equipo musical de alta fidelidad de la 
marca Investronica, modelo CD-300 hf con Compact Disc. 











BASES 

1. — El concurso se divide en tres 
categorias diferentes. Cada concursante puede 
optar por una de ellas, por las dos o por las 
tres si lo desea. 

Primera categoria: consiste en la creacion 
de un tema libre. Se puede enviar una 
melodia, cancion o cualquier tipo de musica. 

Segunda categoria: el concursante debera 
enviar los siguientes sonidos: 

— sonido de llamada telefonica 

— ruido de explosion 

— sonido de un disparo 

— ruido de arranque de un coche o moto 

— sonido que produce el despegue de una 
nave espacial 

Tercera categoria: esta categoria se reserva 
en exclusiva a los PCW por la clara 
inferioridad en que se encuentran respecto al 
resto de ordenadores de la gama Amstrad. 

Acjui se premiara la mejor melodia segun lo 
expresado en la primera categoria o los 
mejores cinco sonidos que se especifican en la 
segunda. Por lo tanto, los concursantes pueden 
enviar melodias, sonidos o ambas cosas a la 
vez. 

2. — Las melodias y/o los sonidos, en las 
tres categorias deberan enviarse a la redaction 
de AMSTRAD Semanal en forma de 
programa, bien en Basic, en Lenguaje 
Maquina o en programa cargador a base de 
lineas Data. No se admitiran ficheros binarios, 
o una mezcla de am bos lenguajes. El soporte 
sera una cinta de cassette o un disco, en el 
formato recjuerido por el modelo de ordenador 
Amstrad para el que se hay a escrito. 

3. El disco o cassette debera enviarse a la 
siguiente direction: 

CONCURSO MUSICAL 
AMSTRAD SEMANAL 
APARTADO 226 
ALCOBENDAS 
MADRID 

4. — Este concurso esta abierto a todos los 
usuarios de ordenadores de la gama Amstrad, 
sin excepcion, cualquiera que sea el modelo. 

5. — El plazo de envio de las melodias y 
sonidos para el concurso comienza a partir del * 
dia 10 de febrero y fmalizara el dia 10 de 
mayo de 1987. Las cartas con matasellos 
posteriores a esta fecha no entraran en 
concurso. 

6. — Cada concursante puede enviar, dentro 
del plazo, una sola carta conteniendo su 
creacion. Si decide optar por am bos temas, la 
melodia libre y los cinco sonidos, debera 
enviarlo todo junto en el mismo sobre, 
convenientemente separados para facilitar su 
identification. 


7. — El jurado estara formado por don 
Francisco Pastor del Pueyo (director de Erbe 
software), don Carlos Toro Montoro 
(compositor) y don Jose Luis Arriaza Ovran 
(locutor del programa «Sabado chip» de la 
cadena COPE). 

8. — Cada uno de los ganadores de las tres 
categorias recibiran un equipo de alta fidelidad 
«Investronica CD-300 ht». No podra recaer 
mas de un premio en la misma persona. Para 
ello el jurado comenzara calificando por la 
primera categoria, luego la segunda y despues 
la tercera. El concursante que resulte ganador 
en la primera categoria sera eliminado, una 
vez que el jurado pase a calificar la segunda, 

si es que tambien ha participado en ella, y asi 
en los siguientes casos. 

Los premios seran enviados mediante 
agencia de transporte puerta a puerta 
(transporte por carretera para la peninsula y 
rnaritimo para las islas). 

9. — Se regalaran tres equipos de alta 
fidelidad repartidos entre las tres categorias: 

— a la mejor melodia 

— a los mejores cinco sonidos 

— a la mejor melodia o mejores cinco 
sonidos en PCW. 

10 . — El jurado se reunira y valorara las 
creaciones de los concursantes durante la 
primera quincena de mayo de 1987. De los 
resultados se informant cumplidamente en la 
revista. La decision del jurado sera 
protocolizada por un notario y cualquier lector 
podra solicitar el acta notarial siempre que lo 
haga dentro de los tres rneses posteriores a su 
fecha de emision. 

11 . — Los agraciados recibiran 
comunicacion personal por correro certificado 
de AMSTRAD Semanal. 

12 . — Todos los programas enviados por los 
concursantes cjuedan en propiedad de la revista 
AMSTRAD Semanal, reservandose el derecho 
de publication si lo considerara oportuno. 

13 . - La participation en este concurso 
implica la aceptacion total de todas las bases. 
Cualquier supuesto que se produzca, no 
especificado en estas bases, sera resuelto por 

HOBBY PRESS, S.A. 
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La voz de su amo 


Una de las multiples 
aplicaciones de un ordenador 
consiste en simular la voz 
humana mediante dispositivos 
adecuados. Ahora, con la ayuda 
del sintetizador de voz en 
castellano de MHT Ingenieros, 
tu tambien lo puedes conseguir 
en tu Amstrad CPC 
464/472/664/6128. El 
sintetizador que encontraras en 
Mini-Bit del Centro Comercial 
Jumbo de Madrid al precio de 
11.000 ptas., se conecta al bus 
de expansion trasero del 
ordenador y para su 
funcionamiento se debera correr 
el software en cinta —facilmente 
transferible a disco— que se 
acompana con el equipo. Para 
ofrlo «hablar» basta con teclear 
la frase que el dispositivo se 
encargara posteriormente de 
pronunciar en un castellano 
practicamente perfecto. 


Calidad suiza 



Hablar de un producto 
suizo es hacer mention de su 
gran calidad. Con este aliciente 
nos llegan a Espana los discos 
de cinco pulgadas y un cuarto, 
de doble densidad fabricados 
por Swissdisk para su utilization 
en el Amstrad PC 1512 y 
cualquier compatible PC. Por 
cada diez unidades se incluye 


una practica caja construida en 
metacrilato transparente. Su 
precio es de 275 ptas. unidad 
en Informatica-Papeleria Plaza de 
Castilla , en la misma Plaza de 
Castilla madrilena. Tambien la 
calidad tiene premio, 
regalandose por cada 20 discos 
una calculadora de bolsillo 
alimentada por placa solar. 


Etiqueta negra 

]Vtas de un usuario de 
Amstrad CPC 464/472 habra 
pasado un mal trago hasta estar 
convencido de que la ultima 
version de su laborioso 
programa ha quedado 
perfectamente salvada en cinta 
de cassette. Si bien este medio 
de almacenamiento seCuencial es 
mucho mas onomico que el 
aleatorio en discos de tres 
pulgadas, la balanza de la 
fiabilidad se inclina a favor de 
este ultimo. Para los 
desafortunados usuarios que no 
cuenten con una unidad de 
disco, lo preferible en estos 
cases es decidirse por unas 
cintas de reconocida calidad 
como las de Philips de 15 o 10 
minutos de duration. 
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Solo para sus ojos 

Ya hemos comentado 
reiteradamente en esta section, 
los problemas causados por las 
pantallas de monitor sobre la 
vista, que en buena parte 
pueden ser reducidos por la 
utilization de filtros. No 
obstante, tanto los filtros de 
pantalla de tela de seda como 
los de crista] V.D.U. exponen 
una gran superficie muy 
vulnerable al ataque del polvo 
por la action electrostatica. 
Pensando en ello, la firma 
Esselte propone este spray 
denominado "Limpiador 
antiestatico para pantallas®, que 
se puede encontrar en 
Informatica-Papeleria Plaza de 
Castilla, en la Plaza de Castilla 
de Madrid, Precio sin confirmar 
Para su correcto uso es 
aconsejable utilizar unas 
toallitas absorbentes especiales 
de la misma firma que se 
adquieren en cajas de 150 
unidades al precio de 10 ptas. 
cada una 


II podria producir una 
intoxication aguda por 
administration masiva. La 
version para la gama Amstrad 
CPC se presenta en dos envases 
de un comprimido compuesto 
por la tableta, lapiz, conexion al 
bus posterior de expansion, y 
software en disco o cassette al 
precio de 29.000 y 26.770 
ptas. No es necesaria la receta 
medica para su uso y, debido a 
su alto indice de adiccion, es 
conveniente no dejarla al 
alcance de los ninos. 


CPC, la caracterfstica 
fundamental del «Zero zero» es 
su amplia superficie de 
sustentacion y la forma 
anatomica de su empunadura. 
Otro punto realmente atractivo 
del joystick de MHT es su 
precio: 1,800 ptas. en Mini-Bit, 
Centro Comercial Jumbo, 28016 
Madrid. 


Aspirina informatica 

La tableta que os 
presentamos en estas paginas no 
la encontrareis con toda 
seguridad en una farmacia, sino 
en los locales de "Master 
Computer® de la Plaza de Cristo 
Rey, 3, en Madrid. Se denomina 
"Tableta Grafica GRAFPAD II» 
y es distribuida en nuestro 
pais por Ofites Informatica. En 
su prospecto podemos observar 
que esta particularmente 
indicada para evitar los dolores 
de cabeza producidos por 
incapacitation de crear dibujos 
a mano alzada sobre la pantalla 
del ordenador, utilizando 
iconos, disenos de arquitectura 
y circuitos electronicos, 
ilustracion de textos, diseno de 
muestras, etc. Respecto a sus 
contraindicaciones se puede 
asegurar que hasta el momento 
no se conoce ninguna, aunque 
un uso prolongado del Grafpad 


Abriendo brecha 

En el deporte del 
automovilismo se conoce al 
dorsal «Doble Cero» como al 
coche que abre la carrera. 
Siguiendo esa filosofia, MHT 
Ingenieros ha denominado 
precisamente asf a su ultima 
creaccion: el joystick "Zero 
zero®. Espetificamente disenado 
para funcionar en los Amstrad 































jjPIDELO EN TU TIENDA 
ANTES QUESE AGOTE!! 


LOS GRANDES 
EXITOS 
DE KONAMI 


GREEN BERET 
YIE AR KUNG - FU 
HYPERSPORTS 
PING - PONG 


jjS& ft 

Erbe te ofrece ia oportunidad de conseguir 
los 4 mayores exitos de todos los tiempos, 
en su presentation original 
(cada uno en su estuche y con su caratula) 

A UN PRECIO INCREIBLE 

1.850 PTA« 






























Pulgraphics 

Como absoluta primicia mundial, Amstrad 
Semanal se complace en publicar «Pulgraphics», 
el disenador de pantallas mas corto del mundo. 
Bajo su inofensiva apariencia, se esconde toda la 
genialidad de Picasso, la perfection de Velazquez 
y todo el colorismo de Miro. Y el que no lo crea, 
que teclee, que teclee y vera. Lo primero que 
deberemos hacer es dar un nombre a nuestra 
pantalla, despues se nos solicitara el modo de 
trabajo y a partir de este instante podremos 
comenzar a recreamos en nuestro terso lienzo. 

Para mover el cursor por la pantalla 
utilizaremos el teclado numerico, considerando 
las distintas direcciones facilitadas en el dibujo. 
Pulsando la tecla «P», entraremos en el modo de 
dibujo y pulsando la tecla «U» anularemos esta 
opcion, 

El programa cuenta tambien con una opcion 
espejo, con dos pianos de reflexion que nos 
ayudara a crear composiciones simetricas. 

Cuando deseemos anularla bastara con pulsar la 
tecla «N». 

Cuando la obra este definitivamente creada, 
pulsando la tecla O, se grabara en disco y se 
dara por finalizada la ejecucion del programa. 


10 LOCATE 10,10:INPUT "NOMBEE DE LA 

PANTALLA." j nom$ 

20 LOCATE 10,14:INPUT "MODO DE PANT 

ALLA:." ; modo 

30 MODE modo 
40 tecla$=’”* 

50 WHILE tecla$<>"0" 

60 GOSUB 190:'lee teclado 

70 IF plumaS=”arriba" THEN PLOT x.y 

,0:PLOT 400,400,1 

80 x=x-<tecla$="6">+<tecla$="4")+(t 
ecla$="7") + <tecla$="1" ) -<tecla$="9" 
>-<tecla$="3") 

90 y=y-<tecla$="8">+<tecla$="2")+(t 
ecla$="1")+<tecla$=”3">-<tecla$="7" 
>-<tecla$="9") 




Textos cilmdricos 
y multicolores 

Hay trucos que en ocasiones sorprenden por su 
longitud minuscula, como es el caso del truco que 
nos ocupa. Para su realizacion se ha recumdo 
unicamente a la formula de la circunferencia en 
coordenadas parametricas, y lo demas ha sido 
coser y contar. Esperamos sirva de ayuda en la 
presentacion de programas o simplemente como 
pasatiempo. 

Variando los distintos modos de pantalla (mode 
1, mode 2 o mode 0), obtendremos distintas 
presentaciones. Y variando el valor del “STEP” 
por numeros mas bajos o mas altos, los efectos 
cambiaran completamente. Para incluir una 
palabra o una frase que queramos presentar, 
bastara con cambiar la palabra Amstrad 
contenida en el “PRINT” 
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10 TAG 

11 PAPER 1 
20 CLS 

30 PLOT 0,0.END*16 

40 FOR n=0 TO 2TPI STEP 0.07 

50 x=10-0*SIHF<n>+300 

60 y~ 1OOTCOS< n)T 200 

70 MOVE x,y 

80 PRINT "Amstrad"; 

90 NEXT 
100 GOTO 30 


Determinar determinantes 


Los mas escolares aprovecharan al rnaximo este 
truco que resuelve determinantes de matrices de 
tres por tres. El metodo utilizado, simple y 
sencillo, emplea la conocida resolution de este 
tipo de operadores mediante adjuntos. Los 
determinantes se utilizan sobre todo, como ya 
sabran los que esten obligados a sufrirlos, para 
resolver ecuaciones de varias incognitas. Pero 
dejemoslo aqui, antes de que nos perdamos en la 
selva del algebra y vaya solo lo mas interesante: 



1.0 REM determinantes 

20 FOR ra=l TO 3:FOR n=l TO 3 

30 PR I NT " E1 emen to. " 5 m j n 1: INPUT a. < 


m, n > 

40 NEXT n:NEXT m 

60 ad j (. 1) =a11,1)*C C (a<2,2)TaC 3 , 3 ) 
a12,3)ta13,2)) ) 

70 ad j <2)=(a <1,2> *C C(aC 2,1> *aC3,3)> 
--Ei ( 2,3) Ta (3,1)))) 

80 ad j < 3 > —a 11,3 ) T < t < a C 2, 1) Ta 13,2 ) ) 
at2,2)Ta13,1))) 

^ CLS 

90 LOCATE 10, 10: PRINT " : PRINT U 

SING "####"I at 1, 1 >:at 1,2); a<1,3)!I P 


PINT " 1" 

100 LOCATE 10, 11: F'R I NT " ! " 5 : PR I NT 
SINS "####"»a<2,l)»a(2,2)ja<2,3)5 


U 


RINT " I" 

110 LOCATE 10,12: PR I NT PR IN i 

SINS "####";at3,l)5a(3,2)5a<3,3)5 


U 

P 


RINT " ! " 

120 LOCATE 25 , 11 : PRINT "=";adjC1 )-a 
djC2)+adj(3) 


Para los mas impacientes 

Una de las posibilidades mas ingeniosas que se 
encuentran ocultas en las mismas profundidades 
de su CPC, es la facultad de controlar la 
velocidad de repeticion del teclado. 

Como ya habra observado, al mantener 
pulsada una tecla, esta se repite a razon de una 
velocidad determinada. 

Este valor es perfectamente alterable, 
consiguiendo o bien velocidades muy alt as o por 
el contrario, muy bajas. Para modificar la 
velocidad tendra que pokear en &B633, un valor 
que, como siempre, tendra que encontrarse en el 
rango 0-255. Cuando mayor sea este valor, 
mayor sera el tiempo que tendremos que esperar 
para que la tecla se repita y cuanto menor, 
menor sera tambien el tiempo de espera. 

Ej.: poke (&B633), 1 

provoca una velocidad de repeticion muy alta y 
poke (&B633), 255, una velocidad muy baja. 

Nota: Los usuarios del 464, encontraran la 
direccion de esta variable del sistema, no en 
&B633 sino en &B43C. 



^Cuanto hay que esperar? 

Para controlar el tiempo que hay que esperar 
para que se detecte la repeticion de una tecla, tal 
y como describimos en el truco anterior, existe 
un valor tambien relacionado con este aspecto 
que controla el tiempo que hay que esperar para 
que una tecla comience a repetirse. Esta variable 
del sistema se encuentra en &B634 y funciona de 
forma identica a la anterior. Los usuarios de los 
464 encontraran este valor tambien en una 
posicion distinta a los del 6128 y 664, 
concretamente en &B4EA 
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FACTURAS AL INSTANTE 
Y SIN PROBLEMAS (VI) 

Es este ya el sexto capitulo de este interesante y util 
programa de Facturacion en el que continuamos 
ofreciendoles un amplio listado con el que 
poder insertar en el programa la \ 

lectura de registros, fechas y 
ficheros y todas las 
modificaciones 
necesarias para 
su desarrollo. \ 

V 


MOEDIT BAS 

5 ON ERROR GOTO 20000 
10 60SUB 11440 
20 60SUE 11260 

30 OPEN "RM, "a; albaran.tex*, 57 
40 FIELD 1,3 AS cod.diM AS fecha a*,39 AS descnpci 
on$,l AS tivaM AS cantidad$,4 AS preciot 
45 GET 1,1 

50 ultiso.registro=CVS(precio$) 

55 ultimo.regi 5 tro=ultiffio registro+l 
60 PRINT FNloc*(25,l);“H 0 D I F I C A C I 0 N 0 E 
L 1 N E A S” 

80 linU-5 

82 xt=2:yS=linS:alfa%=l:eap%=6:decS=0:GGSUB 10000 
84 IF t#=0 THEN CLOSE llCHAIN "menu 

86 IF t#>ultimo.registro THEN 82 

87 IF t#=l THEN 82 


t$="" THEN 120 
10 cod. c 1 i. 14=STRING$(3-LENIt*), “Od+M 
120 PRINT FNloc«ll,lin«);cod.cli.l*;" ' 

130 xX=17:y*=IinS:alfaS=3:cap%=6:dec%=0:G0SUB 10000 
140 fecha$=t$ 

145 IF fecha$=" * THEN 170 
150 G0SU8 10310 

160 IF fecha$="fallo!" THEN 130 ELSE fecha a U=fecha4 
170 PRINT FNloc$(17,lin5!)ifecha a 1$;" " 

180 xX=26:yS=linS:capS=37:dec%=0:alfa?=3:G0SUB 10000 
190 IF t$=STRINGf{37," ”) THEN 210 
200 descripcion.l$=t$ 

210 PRINT FNloc$(26,linS)jdescripcion,llj" " 

212 xS=66: y%=l inS: capS=l: dec%=0: alf aS=3: GO-SUB 10000 

213 IF t*=" " THEN 215 ELSE iva$=tt 

214 IF t$0*l" AND tt<>"2" AND t4<>"3° THEN 212 

215 PRINT FNIoctCx:S/l in*); iva$l" " 

220 xS=70:yS=linS:capS=6:decS=0:alfaS=l:G0SUB 10000 
230 IF THEN 250 
240 cantidad.l=ti 

250 PRINT FNloct(70,1inS>}:PRINT USING "SiMUrjcanti 
dad. 1 

260 xX=80:yS=lin«:alfaS=l:cap«=6:decS=0:G0SUB 10000 
270 IF tt=°" THEN 290 
280 precio.l=t# 

290 PRINT FNloc$(80,lii$);:PRINT USING "###,###"5preci 
o.l 


88 reg.lin=t# 

89 PRINT FNloc$(2,lin*);:PRINT USING "#§t,WJreg. 
: 60SUB 5000 

90 xX=ll:yS=lin*:alfa*=2:capX=3:decS-0:60SUB 10000 


330 LSET cod.cli*=cod.c1i.1$ 
lin 340 LSET fecha.a$=fecha.a.It 

350 LSET descripcion$=descripcion. It 
355 LSET tivaldvat 
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360 LSET cantidadt=HKSt(cantidad.1) 

370 LSET precio$=MKS$<precio, 1) 

380 PUT 1,reg.1 in 
390 lin*=lin*+l 

400 IF linX=27 THEN GOSUB 11260: GOTO 60 
410 GOTO 82 

5000 ' -lectura de registro- 

5010 GET 1,reg. 1 in 
5020 cod.di.lt=cod.di$ 

5030 fecha,a. U=fecha.a$ 

5040 descripcion.l$=LEFT$(descripciont,37) 

5045 iva$=tiva$ 

5050 cantidad.l=CVS(cantidad$) 

5060 precio.l=CVS(precio$) 

5070 PRINT FNloc${ll,linK)jcod.cIi.1$;" " 

5080 PRINT FNloc*(17,linl)if«ha.a.l*f* " 

5090 PRINT FNloc$<26,1InS);descripcion. l$j s " 

5095 PRINT FNlod(66,linX)jiva$J“ " 

5100 PRINT FNlod(70,linX);:PRINT USING ''###,###” 5 cant 
idad.1 

5110 PRINT FNIoc$<80,1 inX)j:PRINT USING "###,Wjprec 
io. 1 

5120 RETURN 

10000 REM-control de digitos- 

10010 REM xX=colu«na yX=fila capX=capacidad 
10020 REN ded=decisale5 alfaX=nu»erico(15 alfa 
nussericos (2) alfanumcoBi (3) 

10030 REM - 

10040 'PRINT FNlodfrf.yXJiSTRINGJ.fcapX+ded+l,'' ") 
10050 t$=”":t=0:d="":falIoX=0:punto)S=0 
10060 PRINT CHR$(7) 

10070 

10080 PRINT FNloc$(xlS f yS);:rt=INPUT$(l) 

10090 r=ASC(rt) 

10100 IF r=13 THEN 10170 

10110 IF r<32 OR r>255 THEN 10080 

10120 IF r=127 AND t>0 THEN t=t-l:tt=LEFT*(t$,t): PRIN 

T FNloc$(xX,yX)jt$>" ".‘GOTO 10080 

10130 IF r=127 AND t=0 THEN 10080 

10140 t=i+l 

10150 IF t>capX+decX THEN t=t-l:G0T0 10080 
10160 t*=t$+r*:PRINT FNloc$(xS,y*>jti:GOTO 10080 
10170 REM-validacion- 


10180 IF alfa%=2 THEN RETURN 

10190 IF alfaX=3 THEN t$=t*+STRING${capX-LEN<t$)," ”): 

RETURN 

10200 FOR nuBiericoJ-1 TO LEN(t$) 

10210 ri=MID${t$,nu#erico%,1) 

10220 IF (d<"0“ OR r$>"9") AND r$<>\" THEN fallo«=l 
10230 IF d=".“ THEN puntoS=puntoS+l 
10240 NEXT nuaericoX 

10250 IF falloX=i DR puntoXM THEN 10000 
10260 t#=CDBL(VAL(tt)) 

10270 t#=t#*10‘decX 
10280 t#=INT(t#) 

10290 t#=t#/10‘decX 


10300 RETURN 


10310 REM-fecha- 

10320 REM la fecha sieapre 6 digitos 


10330 REM 


10340 IF LEN(fecha$)<>6 THEN f ec ha$=*f al 1 o!": RETURN 
10350 fl=VAL(MID$(fecha$,l,2)) 

10360 f2=VAL(MID$(fechaM,2)) 

10370 f3=VAL(MID${fechat,5,2>) 

10380 IF fl<l OR f2<1 OR fl>31 OR f2>12 THEN fecha$=“f 
alio!":RETURN 

10390 f4=(f2=1)+(f2=3)+(f2=5)+(f2=7)+(f2=8)+(f2=10)+(f 
2 = 12 ) 

10400 IF f1)30 AND NOT f4 THEN fecha*=“falloRETURN 
10410 IF f1>29 AND f2=2 THEN fechal="fallo!":RETURN 
10420 IF f1)28 AND f2=2 AND f3 MOD 4=0 THEN fecha$=''fa 
1lo! w IRETURN 
10430 RETURN 

10440 REM-ficheros- 


10450 REM 
10460 REM 
10470 REM 
10480 REM 
10490 REM 
10500 REM 
10510 REM 


10520 REM 
10530 REM inicio 
10540 BUFFERS 10 
10550 longregX=LEN(cadt) 

10560 OPEN "K",numfidat$,noHsfiind$,2,longregS 
10565 longregX=LEN(cad$) 

10570 FIELD nuisfin, longregJS AS fid 
10580 ON tipS GOSUB 10630,10710,10820,10930,11000,1109 
0 

10590 IF tipS<l OR tipS>6 THEN 10620 
10600 r esf=C0NS0LIDATE(nu»fiX) 

10610 CLOSE nufitf iS 
10620 RETURN 

10630 REM lectura de una clave 
10640 resX=SEEKKEY(nui»fiX,0,ranX,cla$> 

10650 IF resXOO THEN ferrorX=resl: RETURN 

10660 ferrorX=0 

10670 nufn*=FETCHREC<nu«fiS) 

10680 GET nusfiX,nu#X 
10690 cad$=fic$ 

10700 RETURN 

10710 REM — lectura de la clave siguiente 
10720 resS=SEEKKEY(nu»fiS,0,ranS,cla$) 

10730 IF resXOO THEN ferrorS=resS: RETURN 

10740 ferrorX=0 

10750 resX=SEEKNEXT(numfiX,0) 

10760 IF resXOO AND resXOlOl AND resXO102 THEN ferr 

or*=resS:RETURN 

10770 ferrorX=0 

10780 nua*=FETCHREC<numfiS) 

10790 GET nunfiS,nueS 
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10800 cad!=fic$ 

10810 RETURN 

10820 REN lectura de la clave anterior 
10830 resX=SEEKKEY!nuafiX,0, ranX, da!) 

10840 IF resXOO THEN ferrorS=resS: RETURN 

10850 ferrorl=0 

10860 res*=SEEKPREV(nu«fi*,0) 

10870 IF resXOO fiNO resXOlOl AND resXO102 THEN ferr 

or*=resS: RETURN 

10880 ferrorX=0 

10880 nu»«=FETCHREC(nu»fi*) 

10900 GET numf iX,nu8iX 
10910 cad!=fic! 

10920 RETURN 

10930 REM - borrar un registro 

10940 resX=SEEKKEY(nu«fit,0, ranX,cla!) 

10950 IF resXOO THEN ferrorX=resX:RETURN 

10960 ferrorX=0 

10970 re5X=DELKEY<nu®fiX,0) 

10980 IF resXOO AND resXOIOl AND resl<>102 AND resX< 
>103 THEN ferrorX=resX:RETURN 
10990 f er ror %=0:RETURN 

11000 REM-alias de claves 

11010 resX=SEEKKEY(nu»f i X, 0, r anX, da!) 

11020 IF resX=0 THEN ferrorX=900lRETURN 
11030 ferrorX=0 
11040 LSET fic!=cad! 

11050 resX=ADDREC(nui8fiX,0,ranX,da$) 

11060 IF resXOO THEN ferrorX=resX:RETURN 
11070 ferrorX=0 
11080 RETURN 

11090 REM - sodificacion de registros 

11100 resX=SEEKKEY!nuitifiX,0,ranX,da!) 

11110 IF resXOO THEN ferrorX=resX:RETURN 

11120 ferrorX=0 

11130 num*=FETCHREC(nu»fiS) 

11140 GET nusfiX.nuiaX 
11150 LSET fic!=cad$ 

11160 PUT nuiftfiS 
11170 RETURN 

11180 REM-borrado de la partial la — 


11190 REM pri.lin*=l linea ult. 1 inJ£=ultima linea p 
ri.colt=l colunna 

11200 REM ult,colX=ultii»a columns 

11210 REM - 


11220 FOR plX=pri.linX TO ult.linX 

11230 PRINT FNIoc!(pri.colX,plX)jSPC(ult.colX-pri.coSI 

) 

11240 NEXT pi? 

11250 RETURN 

11260 REM-i#arco de la pantalla- 


11270 11$=CHR$(134>+STRIN6$(87,CHR$C138))+CHR$(140 

11280 PRINT dtillJ 

11281 PRINT CHR!(133);STRINGS!87,CHR!(32))jCHR! (133> 
1-1282 PRINT CHR!(l35);STRING$!8,CHR!U38))jCHR!<i42)5S 
TRING!(5,CHR!(138))5CHR!(142);STRING!(8,CHR!(138))iCHR 
!(142)jSTRIN8!(40,CHR$(l 


GiSYlON 


38))iCHR!!142)1CHR!!138)}CHR!!138)1CHRit142)1 STRING!(9 
,CHR$C138))1CHR$(142)5 STRING!!9,CHR!(138))1CHR!(141) 

11283 PRINT CHRidSS);" Nub li ";CHR!(133)1* COO "5CHR 

!(133)5" FECHA fl lCHR$(133)l" DESCRIPCION 

";CHR!(13 

3)1"IV S 1CHR!(133);'' CANTIDA *;CHR!( 133)1" PRECIO “;CH 
R$(133) 

11284 PRINT CHR!(135)jSTRING!(8,CHR!(138))1CHR!(143)1S 
TRING!(S,CHR!( 138)) i CHR!U43) 1 STR1NG${8, CHR!( 138)) 1CHR 
!(143)jSTRING$(40,CHR!(l 

385)1CHR!(143)1CHR!<138)1CHR!!13851CHR!<143)1STRING!(9 
,CHR!(138))1CHR!(143)1STRING!(9,CHR$<138))1CHR!(141) 
11290 FOR pl=l TO 22 

11300 PRINT CHR!(133)1STRING!(8,CHR!(32))1CHR!(133) 1 ST 
RING!(5,CHR!(32));CHR!(133)lSTRING!(8,CHR!(32));CHR!U 
33);STRING!(40,CHR!(32)) 

;CHR!(133);“ ";CHR!{133)iSTRING!(9,CHR!(32))?CHR!(133 
);STRING!(9,CHR!(32))lCHR!(133) 

11310 NEXT pi 

11320 PRINT CHR!(135)1 STRING!(87,CHR!(138))1CHR!(141) 
11330 FOR pl=l TO 1 

11340 PRINT CHR!!133)1 STRING!(87 ," H )lCHR!(133) 

11350 NEXT pi 

11360 PRINT CHR!(13l);STRING!(87,CHR41138)JjCHRI! 1375 
11370 RETURN 

11380 REM-correcto s/n- 


11390 r!="":«HILE r!0"S" AND r!0"N” 
11400 r!=INPUT!(t) 

11410 UEND 

11420 IF r!=”S" THEN bienX=l ELSE bienf=0 
11430 RETURN 

11440 REM-initialization- 


11450 ci!=CHR!(27H"E"+CHR!(27)+"Y" 

11460 DEF FN L0C!(x,y)=CHR!(27>+"Y"+CHR$(32+y)+CHR!!32 
+x) 

11470 RETURN 

11480 REM c.digit-os 10000,fetha 10310,archives 10440,b 
orrado 11180, siarto 11260,correcto 11380, initialization 

11440 

11500 REM-lisipia linea aensajes- 

11510 PRINT FNloc!{5,28)5" 

RETURN 

20000 PRINT d! 

20010 PRINT FNloc!(10,10)j”[[ ERROR !! : Cotapruehe si 
el disco del impulsor 'A' es el correcto." 

20020 PRINT FNloc$(10,12)f"Si es correcto pulse (INS) 
en case contrario castbielo y pulse (CAN)" 

20030 PRINT FNlocf(iO,28)j 
20040 GDSUB 11380 

20050 IF bienXd THEN PRINT FNioc!(10,28)i"Error "5ERR 
j" en la linea ";ERLj\Lla»e al servicio tecnico K j:F0 
R g=l TO SOOOJNEXT glCHA 
IN "menu 

20060 IF ferrorOO THEN GOTO 20 
20070 RESUME 20 
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C/ Duque de Sesto, 50. 28009 MADRID 
Metro O'Donnell o Goya 



PTAS. 


PTAS. 

THEY SOLD A MIDI JON III 

2.500 

NONAMED 

2.100 

ASTERIX 

2.100 

4 SUPER 4 

2.500 

TOP GUN 

2.100 

ARMY MOVES 

2.300 

FAT WORM 

2.100 

GAME OVER 

2.300 

REVOLUTION 

2.300 

COBRA 

2.100 

RAMON GUTIERREZ 

1,900 

GOONIES 

2.300 

CAUNLET 

2.300 

ANTIR1AD 

2.100 

BREAKTHRU . 

2.300 

AVENGER 

2.100 

DUSTIN 

2.100 

FIRELORD 

2.100 

ARQLTMEDES XXI 

2.100 

URIDIUM 

2.100 

FIGHTING WARRIOR 

495 

BOUNTY BOB 

495 

DUMMY RUN 

495 

SOUTHERN BELLE 

495 


NOVEDADES DE KONAMI (10 JUEG0S)+REL0J ROBOT 0 CALCULADORA 1.850 



SPECTRUM PLUS 19.800 PTAS. 
T GRATIS 1 SUPLETORIO 


TELEFONICO 



POR CADA PROGRAMA QUE COMPRES 
iiGRATISH UNOS CASCOS DE MUSICA ESTEREO 
SI TU COMPRA ES SUPERIOR A 800 PTAS. 


SERVICIO TECNICO DE REPARACION 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIEN A PROVINCES 
SIN GASTOS DE ENVIO 


IMPRESORAS 
20% DE DESCUENTO 


CASSETTE ESPECIAL. 

PTAS. 

3.995 

1 APIZ OPTICO 

2.890 

CARTUCHO MICRODR1VF. 

545 

CARTUCHERA 4 MICRODRIVES 

95 

INTERFACE SONIDO TV 

2.595 

INTERFACE CENTRONICS RS-232 

8.495 

DISKETTES 3” 

735 

DISKETTES 5 1/4” 

295 

CINTA C-15 ESPECIAL ORDENADOR 

69 

INTERFACE MULTIJOYSTICK 

3.795 


iiOFERTAS EN JOYSTICKS!! 


PTAS. 

QUICK SHOT 1 

1.195 

QUICK SHOT II 

1.495 

QUICK SHOT V 

1.495 

QUICK SHOT IX 

1.995 

QUICK SHOT I + INTERFACE 

2.495 

QUICK SHOT 11 +INTERFACE 

2.795 

QUICK SHOT V +INTERFACE 

2.795 

QUICK SHOT IX + INTERFACE 

_ 3.395 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-8256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEL. (91) 

275 96 16 - 274 75 02 O ESCRIBIENDO A: MICRO-1. C/ DUQUE DE SESTO, 50.28009 MADRID. 

Tiendas y distribuidores grandes descuentos. 

Dirigirse a Diproimsa. Cl Galatea, 25. Tel. (91) 274 75 03. 












































































Ice-front 


Serie 


otto 


CPC 464 


CPC 664 


Aquel viernes, el bobo Bob entro en el tremendo congelador de su r ( p<j 


carnicena «Trad», en el numero 15 de «Ams Avenue», y } de repente, 
una corriente de aire cerro la puerta del congelador, lo que iba a suponerle 
permanecer encerrado en su interior durante todo el fin de semana. 


lo que Bob no sabfa es que, durante este 
largo y gelido perfodo, no solo habria de luchar 
contra el Mo, sino que en su encierro se las 
tendria que ver con los terribles fantasmas que 
habitaban tras los transparentes bloques de hielo. 
Sin embargo, no todo habria de estar en su 
contra y asf, los pequehos Gnomos del hielo 
colocaban, cuando sus fuerzas se lo permitfan, 
minusculos huevos de fuego donde Bob podrfa 
calentar sus congelados huesos. Aparte de eso. Bob 
podrfa deslizar los bloques de hielo para atrapar a 
sus fantasmagoricos companeros de habitacion. 

Sin embargo, llegar a ellos no iba a ser facil, y 
Bob tendria que pasar el fin de semana mas Mo 
y terrible de su vida. 

Teclas: 

Z. Rotacion a izquierda. 

X. Rotacion a derecha. 

Espacio. Bob avanza. 

Rutinas: 

110 Bucle principal. 

230 Mueve a “Bob”. 

670 Mueve a los fantasmas. 

910 Imprime el fuego. 

980 Pantalla completa. 

1040 Inicializacion de la pantalla. 

1120 Variables. 

1280 Asignacion del borde. 

1680 Inicializacion del programa. 

2210 Graficos definidos por el usuario. 

2450 Maxima puntuacion. 

Variables: 

hg,hi coordenadas de “Bob”. 
mx,mi: coordenadas de los fantasmas. 
mon: numero de fantasmas. 
eggs: numero de huevos de fuego a 
recoger. 

eg: numero de huevos de fuego recogidos. 

hh$: cabeza de “Bob”. 

hb$: cuerpo de “Bob”. 

na$: nombres de los que tienen la maxima 



puntuacion. 

hs: maximas puntuaciones. 
score: puntuacion durante el juego 
lives: numero de vidas que restan. 
ti: tiempo de vida que nos queda. 
dec: decremento de tiempo. 
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SO CALL &BCC2 

20 CALL &BB4E 

30 REM Ice Front 

40 REM (c) Assstrad Seaanal 

50 GQSUB 2000:REM U.D.Gs 

60 GOSUB 1470:REM Iniciaiiiacion 

70 6GSUE S450:REM Instrucciones 

80 GOSUB 1300:REM Oibuja border 

SO GOSUB 12S0:REM Variables 

SOO GOSUB 1140:REM Dibuja Pantalla 

S10 PEN 2 

120 REMt*********Bucle Principal***** 
****** 

130 GOSUB 930 
140 60SUB 250 
150 GOSUB 900 
160 GOSUB 690 
170 fr=FRE<") 

180 IF eg=eggs THEN ec=O:60T0 1000 
190 IF ec=l THEN ec=0:score=score+INT 
(ti):GQSUB 930:sl=l 
200 GOSUB 900 

210 ti=ti-dec:LOCATE#!,INTCti),20:PEN 
#l,2:PRINT#l,CHR*(247> 

220 IF sl=l THEN sl=0:LGCATEil,1,2:PE 
N#l,13:PRINT#1,score 
230 IF INTIti)=l OR lives<=0 THEN GOT 
0 1090 

240 GOTO 140 

250 REM***********Mueve Hoabrem**** 
1**4 

260 POKE &A048.4A2 

270 x=hx:y=hy:po=(10*(y-4>)+x 

280 IF INKEYC71>=0 THEN dir=dir-1:1F 

dir=0 THEN dir=4:G0T0 310 

290 IF INKEY(63)=0 THEN dir=dir+l:IF 

dir=S THEN dir=l:GOTO 310 

300 IF INKEYC47)=0 THEN GOSUB 360:S0U 

NO 1,2900,20+dir,5,1 

310 x*=MIOKhht,dir, 1): y*=MIOtChb*,di 

r,l):nl=VAL(x$):n2=VAL(yt) 

320 CALL &A000,hx,hy,x,y,n1:CALL 5A00 

0,rix,hy+l,x,y+l,n2 

330 hx=x:by=y 

340 IF hx=egg>: AND hy=eggy THEN ec=l: 
SOUND 2,200,25,5,1,1: eg=eg+1 
350 RETURN 

360 addr=39599:ON dir GOTO 370,450,59 
0,520 

370 IF y=4 THEN RETURN 

380 IF PEEKCaddr+Cpo—20)5=0 THEN y=hy 

-2:RETURN 

390 IF hy=8 THEN RETURN 

400 IF PEEKCaddr+(po-40>)=1 OR (hx=eg 

gx AND hy-4=eggy) THEN RETURN 

410 FOR f=! TO 3:IF »x(f)=hx AND isyif 

)=hy-4 THEN GOSUB 670 

420 NEXT 

430 F'OKECaddr+(po-40)), 1: PGKECaddr+Cp 
O-20J),0:POKE &A048,5AI:CALL SAOOO.hx 
, hy-2, hx,hy-4,0:CALL &A000,hx,hy-1,hx 
■hy-3,1 

440 POKE &A048,&A2:y=hy-2:RETURN 
450 IF hx=20 THEN RETURN ELSE IF PEEK 


(39599+ipo+l))=0 THEN x=hx+1:RETURN 

460 IF hx=!9 THEN RETURN 

470 IF PEEKCaddr+Cpo+2)>=1 OR Chx+2=e 

ggx AND hy=eggy) THEN RETURN 

480 FOR f=! TO 3: IF raxCf>=hx+2 AND my 

(f)=hy THEN GOSUB 670 

490 NEXT 

SOO POKEC ador+(po+2)),1:POKE(addr+Cpo 
+1)),0:P0KE &A048,&ftl:CALL &AOOO,hx+l 
,hy,hx+2,hy,0:CALL &A000,hx+1,hv+!,hx 
+2, hy+1.1 

510 POKE &A04S,&A2:x=hx+1:RETURN 

520 IF hx=l THEN RETURN ELSE IF PEEK'C 

39SS9+C pc-1))=0 THEN x-hx-1:RETURN 

530 IF hx=2 THEN RETURN 

540 IF F'EEKCaddr+Cpo-2) )=1 OR (hx-2=e 

ggx AND hy=eggy) THEN RETURN 

550 FOR f=l TO 3:IF »xif)=hx-2 AND my 

if)=hy THEN GOSUB 670 

560 NEXT 

570 P0KE(addr+(po-2)),i:PDKE(addr+(po 
-1)),0:P0KE &A048,&A1:CALL &A000,hx-l 
,hy,hx-2,hy,0:CALL &A000,hx-1,hy+1,hx 
-2,hy+1,1 

580 POKE &A048,&A2:x=hx-1:RETURN 
530 IF y=18 THEN RETURN 
600 IF PEEK(33599+ Cpo+20)i=0 THEN y=h 
y+2:RETURN 

610 IF hy=16 THEN RETURN 

620 IF PEEKCaddr+(po+40))=l OR (hx=eg 

gx ANO hy+4=eggy) THEN RETURN 

630 FOR f=l TO 3:IF »x(f)=hx ANO syif 

)=hy+4 THEN GOSUB 670 

640 NEXT 

650 POKE (addr+< po+40)), 1: POKEt addr+{p 
o+20)),0:P0KE &A048,&A1:CALL fcAOOO.hx 
, hy+2,hx, tiy+4,0:CALL &A000, hx, hy+3, hx 
,hy+S,1:POKE &A048,&A2:y=hy+2 
660 RETURN 

670 LOCATE f),»y{f)-3:PRINT * *:LQ 
CATE mx:Cf),myCf )-2:PRINT" ":score=sco 

re+50:sl=i:®x(f )=INT(RN0*20)+l:ity(f)= 
4:SQUND 1,2900,20,5,1,5,4 
680 RETURN 

690 REM********Mueve Bicho********* 
700 POKE 4A048,4Ai 

710 addr=33593:FOR f=l TO 3:dirl=INT( 
RNO*4i+1:x=mx{f):y=»y(f):i=x:j=y 
720 po=(10*(y-4))+x 
730 ON dir 1 GOSUB 780,810,840,870 
740 IF dir=l THEN CALL iAOOO,x,y,i,j, 
son:CALL SAOOO, x, y+1, i, j+1, j»n+1 ELSE 
CALL &A000,x,y+1,l,j+1,aon+1:CALL &A 

000,x,y,i,j,»on 
750 »x(f>=i:rayCf)*j 
760 NEXT f 
770 RETURN 

780 IF PEEK(addr+(po-2G)}=l OR (isy(f) 
-2=eggy AND mxff)=eggx) OR y=4 THEN R 
ETURN 

790 j=»y(f)-2 
800 RETURN 

810 IF PEEK(addr+(po+l))=l OR C»y(f)= 


eggy AND sx(f)+l=eggx) OR x=20 THEN R 
ETURN 

820 i=»xif)+l 
830 RETURN 

840 IF PEEK(addr+(po-l!)=l OR (»y(f>= 
eggy ANO sxif)-l=eggx) OR x=l THEN RE 
TURN 

850 i=nx(f)-l 
860 RETURN 

870 IF PEEKCaddr+Cpo+20))=1 OR (syif) 
+2=eggy ANO wxCf)=eggx) OR y=18 THEN 
RETURN 

880 j=sy(f)+2 
890 RETURN 

900 FOR f=l TO 3:IF sxif)=hx ANO tyif 
)=hy THEN GOSUB 1060 
910 NEXT 
920 RETURN 

330 KEH**t*tm***Finta huevott****** 
** 

940 eggx=INTiRND*20)+1:eggy=INT(RND*5 
):eggy=<eggy*2)+6 

950 x=eggx:y=eggy:po=(10*(y-4))+x: IF 
PEEKC33593+po)=1 OR (eggx=hx ANO eggy 
=hy) THEN GOTO 940 

960 FOR f=l TO 3: IF eaxCf )=eggx ANO lay 
(f)=eggy THEN GOTO 940 
970 NEXT 

380 LOCATE eggx,eggy-3:PEN 4:PRINT CH 
R*{248):LOCATE eggx,eggy-2:PRINT CHR$ 
(249) 

990 RETURN 

1000 REM********Panta!la cospleta**** 
** 

1010 eg=0:eggs=eggs+l:IP eggs=ll THEN 
eggs=10 

1020 sc reen=5C reen+ 1:dec=dec+(sc reen/ 
1000 ) 

1030 If 5creen=ll THEN screen=l 
1040 FOR f=INTCti) TO 1 STEP-l:LOCAT£ 
#1,f,20:PEN#!,2:PRINTttl,CHRiC 247): sco 
re=score+l:LOCATE#!,1,2:PENil,13:PRIN 
T#l,score:SOUND 1,if+10),1,1S:NEXT 
1050 GOTO 100 

1060 REM*********Pierde una vida***** 
*** 

1070 LOCATE#1,15+1 1 ves,2:PRINT#1,* ": 

1ives=lives-l:SOUND 130,0,10,15,5,4,1 
1080 RETURN 

1090 LOCATE 1,1:PRINT STRINGS 16,11) 
1100 IF !NT(ti)=l THEN LOCATE 6,9:PEN 
2:PRINT’B0D EN EL HIELO’ ELSE LOCATE 
5,9:PEN 3:PRINT"B00 EN SANDWICH’ 

1110 FOR f=l TO 2:RESTQRE U30:F0R g= 

I TO 11:READ d,n:SOUND 1,n,d,7:SOUND 
4,n+2,d,7:SOUND 5,0,3,0:NEXT g.f 
1120 GOTO 2240 

1130 DATA 50,1016,37,1016,12,1016,50, 
1016,25,850,25,899,25,899,25,1016,25, 
1016,25,1136,100,1016 
1140 REM**********Dibuja pantalla**** 
** 

II SO CIS 

1160 POKE 39901,screen:CALL 39900 
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1170 addr=39600:loc=0 

1180 FOR 1=4 TO 18 STEP 2:F0R g=l TO 

20:IF PEEK(addr+loc)=1 THEN CALL ftfiOO 

O.g.f.g.f.O:CALL JAOOO.g,1+1,g,1+1,1 

1190 loc=loc+l:NEXT g,f 

1200 dir=l:hx=20:hy=18:FOR 1=1 TO 3:» 

x( f )=INiT(RND*20)+1! ay< f) =4: NEXT 

1210 *on=INT(RND*S)+2:IF *on=3 OR son 

=5 DR mon=7 THEN 1210 

1220 hb$=’lS13":hh$= , '6402" 

1230 ti=21:LOCATE#!,1,20:PEN#1,12:PRI 
NT#1,STRING!'20,CHR$(247)! 

1240 RETURN 

1250 REMmmtumriibiesttrmm 

1260 screen=lNT(VAL(chosel)):score=0 
1270 1ives=5:dec=0.05 
1280 eggs=6:eg=0 
1290 RETURN 

1300 RENtm******Dibu)a border****** 
1310 NODE 0 

1320 LOCATE 1,20:PEN !2.*PRINT STRING! 

(20,CHRtf247)>:LOCATE 1,21: PAPER l:PE 
N 3:PRINT STRIN6$(20,CHR$(246)) 

1330 PAPER 10:LOCATE 1,22:PRINT STRIN 
G!(40," "):PEN 4 

1340 LOCATE 3,22:F0R f=230 TO 244 STE 
P 2CPRINT CHRKfi;" IF 1=234 THEN 
PRINT” ”i 
1350 NEST 

1360 LOCATE 3,23:FGR f=231 TO 245 STE 
P 2:PRINT CHR!(f);“ ”;:IF f=235 THEN 
PRINT’ *i 
1370 NEST 

1380 PAPER l:PEN 3:LOCATE 1,22:PRINT 
CHR*(246)iCHft!(246):LOCATE 1,23:PRINT 
CHRK246):LOCATE 19,22:PRINT CHR$(24 
6);CHR$(246):LOCfiTE 20,23:PRINT CHR*( 
246) 

1390 LOCATE 1,24:PRINT STRING*(20,CHR 
$(246)) 

1400 LOCATE 1,3:PEN 3:PRINT STRINGN2 
0,CHR$(246)) 

1410 PEN 4:PAPER 0:LOCATE 1,1:PRINT’S 
CORE HIGH LIVES":LOCATE#1,8,2:PEN 
*l,7:PRINT#l,hs(l! 

1420 UINDOy»U,20,4,19:yiNOOy SWAP 0 

,1 

1430 POKE &A048,&A2:FOR 1=1 TO 5:CALL 
&A000,15+f,2,15+f,2,0:NEXT:POKE 1A04 
8,4A1 

1440 RETURN 

1450 REH**********Instrucuones****** 
:t 

1460 GOTO 2240 

1470 REP!***t****Inicializac ion******* 
1480 INK 14,15:INK 0,0:INK 15,13:BORO 
ER 0; MODE 1 

1490 ENT 1,5,1,1,10,-1,1,5,1,1,10,1,5 
,1,1,5:ENV 3,3,2,2,3,-2,2:ENT 4,5,-5, 
10,1,0,5 

1500 LOCATE 15,10:PEN 2:PRINT'ESPERE 
PGR FAVOR * 

1510 MEMORY 35999 

1520 sus=0:RESTORE 1540:FOR f=39900 T 


0 39928:READ n$:x=VAL<"J’+n$):su»=sui* 
+x:PQKE f,x:NEST 

1530 IF susO3360 THEN n$="lst Block 

I ins 1750”: GOTO 1980 

1540 DATA 3e,01,21,00,8c,11,aO,00,19, 

3d,fa,00,20,fa,11,bO,9a,01,aO,00,ed, a 

0,e2,f8,9b,c3,f0,9b,c9 

1550 check=0 

1560 ENV 3,3,2,2,3,-2,2:ENT 4,5,-10,2 
0,1,0,5:ENT 1,30,10,l:ENV 1,10,-1,2 
1570 FOR 1=0 TO 98 

1580 READ n$:POKE AAOOO+f,VAL(“i"+n$) 
1590 check=check+VAL("&"+n$) 

1600 NEST 

1610 DATA dd,7e,00,87,87,87,87,87,32, 


Serie 

ORO 

cO,cO,44,cc,cc,cc,cc,00,40,80,00,00,8 
0,40,00,00,40,80,00,00,00,00,00 
1720 DATA 2a,00,00,15,15,3f,3f,2a,2a, 
15,2a,15,00,33,33,00,11,90,33,22,33,c 
0,62,33,33,91,cO,33,33,33,62,33 

1730 DATA 33,99,66,33,11,66,99,22,00, 
38,3c,00,00, 2c, 28,00,00, 38, 28,00,00, 2 
c,3c,28,00,38,3c,3c,00,3c,3c,28 



47,a0,26,c0,dd,7s,04,3d,87,87,6f,11,5 
0,00,dd,46,02,05,19,10,fd,e5,26,c0,dd 
1620 DATA 7e,08,3d,87,87,6f,11,50,00, 
00,46,06,05,19,10,10,11,10,07,06,08,3 
6,00,23,36,00,23,36,00,23,36,00 
1630 DATA 19,10,12,el,11,00,al,06,08, 
la,77,13,23,la,77,13,23,la,77,13,23,1 
a, 77,13,78,01,Id,07,09,47,10,e9,c9 
1640 IF check<>7948 THEN n$="In Graph 
ic Routine 1820 to 1840*:GOTO 1980 
1650 RESTORE 1650:FOR 1=0 TO 479:READ 
n$: POKE iA100+t,VAL< "i’+n$) :NEST 
1660 DATA 24,0c,0c,0c,75,0c,0c,0c,64, 

ае, Oc,Oc,64,ee,8c,Oc,64,ee,11,Oc,75, e 
e,dd,cc,75,f1,11.38,24,ff,tt,cc 

1670 DATA 24,5d,11,98,24,0c,It,cc,24, 
Oc,5d,ba,24,Oc,Oc,ba,24,Oc,Oc,18,24,0 

с, Oc,18,75,11,11,ba,30,30,30,30 

1680 DATA 00,11,22,00,00,33,33,00,11, 
33,33,22,33,91,62,33,33,91,62,33,33,9 
1,62,33,33,33,33,33,33,27,lb,33 
1690 DATA 33,27,lb,33,33,27,lb,33,66, 
33,33,99,66,33,33,99,33,cc.cc,33,33,3 
3,33,33,22,33,22,33,00,11,00,11 
1700 DATA 11,33,33,22,26,8c,8c,99,11, 
33,33,22,00,84,48,00,00,84,48,00,00,8 
4,48,00,40,84,48,80,6a,0c,0c,95 
1710 DATA 2a,84,48,15,88,40,80,44,88, 


1740 DATA 00,Oc,0c,00,00,0c,0c,00,0c, 
Oc,Oc,Oc,44,88,44,88,44,44,88,88,44,0 
0,00,88,00, cc.cc, 00,00,33,33,00 
1750 DATA 11,33,33,22,3b,33,33,37,3b, 
33,33,37,3b,33,33,37,30,30,30,30,10,3 
0,30,20,00,20,10,00,10,20,10,20 
1760 DATA 00,04,08,00,00,04,08,00,0c, 
Oc,Oc,Oc,00,cc,44,00,cc,00.44,00,00,8 
8,44,00,00,44,88,00,00,33,33,00 
1770 DATA 11,33,33,22,33,33,3b,33.33, 
33,3b,33,33,37,3b,33,30,35,30,30,10,3 
0,30,20,00,10,20,00,00,30,20,00 
1780 DATA 00,04,08,00,00,04,08,00,0c, 
Oc,0c,0c,00,88,cc,00,00,88,00,cc,00,8 
8,44,00,00,44,88,00,00,33,33,00 
1790 DATA 11,33,33,22,33,37,33,33,33, 
37,33,33,33,37,3b,33,30,30,3a,30,10,3 
0,30,20,00,10,20,00,00,10,30,00 
1800 DATA 00,0c,0c,00,00,0c,0c,00,0c, 
Oc,Oc,Oc,44,cc,cc,88,44,cc,cc,88,00, c 
c,cc,00,00,44,88,00,00,33,33,00 
1810 RESTORE 1830:addr=36000:g=0 
1820 READ n:IF 60995 THEN x$=BINt(n, 
8):FOR 1=1 TO 8:P0KE addr+g,VAL(!1IDt( 
Ji$,f,l)):g=g+1:NEXT:GQTC 1820 
1830 DATA 0,0,5,255,0,64,7,229,17,4,4 
,66,84,0,4,95,247,224,0,0 
1840 DATA 0,0,7,255,254,64,1,37,224,3 
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4,1,253,20,0,34,127,255,240,0,0 

1850 DATA 0,0,5,123,162,86,42,7414,1 

62,119,42,37,96,162,87,187,160,0,0 

1860 DATA 0,0,4,0,2,95,255,164,0,2,65 

,152,36,0,2,95,159,164,0,0 

1870 DATA 0,0,2,0,2,39,144,34,1,122,2 

24,24,%, 1,135,127,240,48,0,0 

1880 DATA 0,0,1,103,120,20,71,129,100 

,120,244,100,15,68,64,247,100,0,0,0 

1890 DATA 0,0,6,0,6,64,0,36,0,2,64,0, 

36,0,2,96,0,96,0,0 

1900 DATA 0,0,3,255,254,32,0,34,0,2,3 

2,0,34,0,2,63,255,224,0,0 

1910 DATA 0,0,11,255,227,145,0,25,18, 

9,21,0,24,64,129,132,1,31,255,252 

1920 DATA 0,0,3,128,0,32,0,3,169,64,3 

2,208,2,43,64,34,148,0,0,0 

1930 DATA 999 

1940 DM »x{3),»y(3),na»(8),hs(8>:*$= 
STRING* (255, "**): y*=STRING*(255, **") : 
hb*=STRING*C2S5,*t"):hh*=STRING*{255, 
" t *); c hoset=STRIN6*(255,"4*) 

1950 RESTORE 1950:FOR f=l TO 8:bs(f)= 
3000-(f*300):READ na*(f):NLXT 
1960 DATA Ice Front,A Big,Hello,To A! 
1,Anstrad,Users,Betiare,The Wolf 
1970 RETURN 

1980 ClS:PRINT"ERROR *;:PEN 3:PR1NT n 
*:PRINT CHR*(7>:£ND 
1990 GOTO 1990 

2000 REHmm*m«u.D.G stmmm 
2010 SYMBOL AFTER 230 
2020 SYMBOL 230,0,126,255,126,60,60.6 
0,60 

2030 SYMBOL 231,60,60,60,60,60,126,25 


2120 SYMBOL 240,0,24,60,126,231,231,- 


2130 SYMBOL 241,231,231,231,231,126,6 
0,24,0 

2140 SYMBOL 242,195,195,195,227,227,2 
43,243,219 

21.50 SYMBOL 243,219,207,207,199,199 1 
95,195,195 

2160 SYMBOL 244,0,126,255,255,126,24, 
24,24 

2170 SYMBOL 245,24,24,24,24,24,24,24, 
24 

2180 SYMBOL 246,254,254,254,0,233,239 
,239,0 

2190 SYMBOL 247,0,0,32,113,251,255,25 

5.255 

2200 SYMBOL 248,24,60,60,126,126,255, 

255.255 

2210 SYMBOL 249,126,126,60,60,24,0 ,0, 
0 

2220 SYMBOL 250,196,165,198.165,6,40, 
40,16 

2230 RETURN 

2240 REHtmmmHigh Score********* 
2250 MODE 1 

2260 LOCATE 4,5:PEN 3:PRINT CHRK150) 
1STRING*(32,CKR*<154))iCHR*<156) 

2270 LOCATE 16,3:PEN 2:PR!NT"HIGH SCO 
RE":PEN 3 


2280 FOR f=6 TO IS:LOCATE 4,f:PRINT C 
HR*(149):LOCATE 37,f:PRINT CHR$C149): 
NEST 

2290 LOCATE 4,16:PRINT CHR*(147!;STRI 
NG*(32, CHRti 154)) jCHRK 153! 

2300 FOR t=l TU 8 

2310 IF score>hs(f> THEN GDSUB 2450:f 


5.126 

2040 SYMBOL 232,0,126,255,254,224,224 
,224,224 

2050 SYMBOL 233,224,224,224,224,224,2 

54.255.126 

2060 SYMBOL 234,0,126,255,254,224,224 
,224,254 

2070 SYMBOL 235,255,254,224,224,224,2 
54,255,254 

2080 SYMBOL 236,0.-126,255,254,224,224 
,248,252 

2050 SYMBOL 237,248,224,224,224,224,2 
24,424,64 

2100 SYMBOL 238,0,126,255,231,231,255 
,254,252 

2110 SYMBOL 239,248,252,254,239,231,2 
31,231,66 


=10 

2320 NEST 

2330 FOR f=i TO 8:PEN 1:LOCATE B.f+6: 
PRINT nat(f):LOCATE 18,f+8:PEN 3:F'RIN 

V ."ihsft ):nest 

2340 LOCATE 1,17:PRINT STRING*!220," 

IF i 

/ 

2350 IF INKEYtO"" THEN GOTO 2350 
2360 PEN 2:LOCATE 1,20:PRINT STRING*! 
40,CHR*(154)):LOCATE 1,22:PRINT STRIN 
G*(40,CHR*(154!):PEN 1 
2370 LOCATE 1,23:PRTNT STRING*(40,” “ 


4380 LOCATE 8,21:1NPUT"Se1eccione pan 
talIa( 1-10)*;chose*:IF VAL(chcse*K! 
OR VAL(chose*)>10 THEN LOCATE 8.20:PR 
INT STRING*(40," "):G0T0 2380 


Serie 

ORO 

2390 LOCATE l,2i:PRINT STRING*(40," ” 
) 

2400 LOCATE 11,21:PEN 3:PRINT"PULSE"i 

.’PEN 1:PR1NT“< ESPACIO >";:PEN 3:PRl^ 

T"PARA JU6AR. ":PEN 1 

2410 WHILE INKEY*<) ,,,, :WENO 

2420 IF INKEY(47)<>0 THEN GOTO 2420 

2430 LOCATE 1,1,’PRINT STRINGK25,11): 

fr=FRE(““) 

2440 GOTO 80 

2450 a*=*ABCDEFGHI JKLHNOPQRSTUVUXYZ 
#*&()!C)?*+"+CHR*{250) 

2460 c=l9:LOCATE 1,20:PEN 1:PRINT at 
2470 LOCATE 3,17:P£N 1:PRINT*USE TECL 
AS DEL I2QU., OCHA Y COPY DEL CURSOR 
"LOCATE 4,18:PRINT"PARA StLECCIONAR 
LETRAS.(MAXIMO DE 10 )*: PEN 2:L0CATE 
1,19:PRINT STRIN6*(40,CHR*( 154)):LOC 
ATE 1,22:PRINT STRIN6*(40, CHR*(1S4)! 
2480 LOCATE 12,23:PEN 3:PRINT"PULSE"j 
:pen 1:PRINT"< r >";:pen 3:print*pa 
RA SftLIR.*:PEN 1 
2490 :»:*="“ 

2500 FOR z=l TO 10 

2510 LOCATE c,21:PEN 2:PRINT" " 

2520 IF INKEY(1)=0 AND c<40 THEN c=c+ 

1 

2530 IF INKEY£8)=0 AND c>l THEN c=c-l 
2540 IF INKEY(9)=Q AND c=40 THEN LQCA 
TE 7,f+6:PRINT" ":z=100:6GT 

0 2590 

2550 IF INKEY(63)=0 THEN zMUGOTO 25 
90 

25G0 IF INKEY(9)<>0 THEN LOCATE c,21: 
PRINT"*":FOR 3=1 TD SO:NEXT:GGTQ 2510 
2570 sct=xt+HID*(at,c, 1):LOCATE 7+z,f+ 
6:PEN SPRINT MID*(a*,c,l) 

2580 FOR a=l TO 200:NEXT 
2590 NEXT 

2600 IF z=101 THEN GOTO 2490 
2G10 hs(8)=score:nat(8)=x* 

2820 f=0 

2630 FOR z=I TO 7 

2640 IF hs(z)<hs(z+l) THEN t=hs(z+l): 
hs(z+l )=h5(z) :h5(z)=t:a*=na*( z+1):na* 
!z+l)=nat(z):nat(z)=a*:f=l 
2650 NEXT 

2660 IF f=l THEN 60T0 2620 
2670 fr=FREC*) 

2680 RETURN 



P 

/ oraquetusdedos 
no redtcen eltraba/oduro, M H. AMS- 
por h. Todos los lislados que mclvyon 
este logotipo se encuenfron a tu disposition en un cas¬ 
sette mensual, sokitanoslo. 
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Enigma de Aceps 
El programa que habla 

Mycrobyte 


V/l I'll 



P.V.P.: Disco 4.900 



En mas de una ocasion, a mucha gente se le 
habra pasado por la imaginacion el meterse a 
investigar por el interior de una de las colosales 
piramides de Egipto. 

ACE nos deja sonar introduciendonos con su 
juego, El enigma de Aceps, en la piramide de 
Kafak. Una vez en ella deberemos llegar a su 
centro y descubrir las mil maravillas y tesoros 
que alii guarda. 

Lo realmente interesante de este juego, es la 
voz en Castellano con que ha sido dotado, para 
que, a traves de una cabeza egipcia, se nos 
narren los sitios y las situaciones por las que 
vamos pasando. Segun queramos ir a un sitio u 
otro, deberemos introducir la direccion, y alii 
seremos llevados. 

De la parte grafica hay que decir que 
impresiona: los dibujos son muy buenos, y los 
scrolls de pantalla para realizar el movimiento 
estan muy bien hechos. El color, tambien es 
francamente bueno y refleja muy bien el mundo 
egipcio. 

El enigma de Aceps esta distribuido por 
Microbyte. 

Digno de mencion: Graficos y voz en castellano. 


alcalde de dicha ciudad. Los barrios bajos de esta 
populosa urbe, estan controlados por cinco de los 
mas famosos capos de la historia del hampa. La 
mision de Mike se terminara una vez que ponga 
entre rejas a estos delincuentes. Pero hagamos 
una breve description de estos individuos. 

Ruddy Bulldog. Jefe de los atracadores, dirige 



todos los robos de la «familia». 

Jhonny Fandango. Controla el trafico de 
alcohol y cocaina. 

Tony Spagetty. Jefe de los extorsionadores o 
chantajistas. 

Franky Frondasio. Inspector de politia, pero 
totalmente corrupto; se le puede ver en todo tipo 
de chanchullos. 


El padrino. jQue vamos a decir de el...! 

Nuestra ayuda a Mike es fundamental, ya que 
el juego se desarrolla en 92 pantallas dentro de 
un ambiente grafico simpatico y bien realizado. 
El movimiento es acertado y el sonido nos rodea 
de los necesarios tiroteos, quejas por heridas, etc. 

Buen desarrollo de una idea original. 

Cosa Nostra esta distribuido por sus propios 
creadores, Opera Soft. 

Digno de mencion: Movimiento y sonido. 


Cosa Nostra 

Entre cacos anda el juego 

Opera Soft 

P.V.P.: Disco 3.000 / Cassette 2.200 

Todos hemos jugado de pequenos a politias 
ladrones. Ahora, con Cosa Nostra, tenemos la 
oportunidad de seguir haciendolo. 

Mike Bronco, famoso detective, se enfrenta a 
la dura tarea de limpiar Chicago por orden del 
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Troglo (Amstrad PCW) 

De la caverna al ordenador 

Mycrobyte 

P.V.P.: Sin confirmar 

A.CE Software nos presenta el primer arcade 
espanol desarrollado para la saga de los PCW. 

Troglo, asi se llama el juego, nos situa en la 
lejana prehistoria y en medio de una cruenta 
lucha por la vida. 

El pobre Troglo, tiene que defenderse de unos 
extranisimos seres antic! iluvianos que le van 
buscando por rocosas cavernas, con la insana 
intencion de eliminarle. Para ello, Troglo se 
defiende lanzando todo lo que encuentra a su 
paso. Si les da, y termina con todos ellos, nuestro 
cavernfcola amigo pasara a enfrentarse en otra 
pantalla con mayor cantidad de seres raros. 
jPobre Troglo, que vida mas dura! 

Este es el desarrollo de un juego que nos ha 
parecido especialmente interesante y que, despues 
de haber visto en los PCWs otros juegos, nos 
parece incluso bastante simple. 

Graficamente sigue en la misma linea y en 
cuestion de movimiento esta bien realizado. 

Troglo existe tambien en version para los 
CPC. 

Este juego lo distribuye Microbyte. 

Digno de mencion: Movimiento y sonido. 




Thrust 

jPodras controlar la nave? 

Dro Soft 

P.V.P.: Cassette 750 

Xja resistencia ha conseguido robar varias 
naves de guerra al Imperio Intergalactico. Con 
ellas quiere iniciar una ofensiva contra el tiranico 
poder de este ultimo. 


Cl 


a 




Una vez que el plan de ataque casi estaba 
ultimado., se dieron cuenta de que les hacia falta 
una gran cantidad de capsulas Klystron, o pilas 
atomicas, para alimentar a sus naves. La 
estrategia para hacerse con ellas se desarrollo de 
inmediato. Se decidio encomendarte la mision de 
atacar uno de los planetas donde el Imperio 
guardaba las capsulas, con la unica nave que 
poseia capsula de alimentacion. 

Esta importantisima tarea no esta exenta de 
peligros. Tendras que superar las baterfas 
enemigas y, mientras haces esto, mantenerte en 
posicion correcta de vuelo, utilizando los cohetes 
de propulsion y direction, para posteriormente 
acercarte lo suficiente a tierra y recoger las 
capsulas Klystron. jCuidado con acercarte 
demasiado! 

Como se puede ver, la accion del juego tiene 
los ingredientes necesarios como para hacernos 
pasar buenos ratos frente a la pantalla del 
ordenador, demostrandonos la habilidad que 
poseemos en el control de nuestra nave de 
guerra, algo no dificil, pero si entretenido. 

Graficamente, el juego es bastante simple, pero 
hecho con buen gusto, y el movimiento es el 
apropiado, asi como el sonido que acompana a 
nuestras maniobras. 

Interesante el juego que nos trae Dro Soft a 
Espaha. 

Digno de mencion: Poder de adiccion y movimiento 
de la nave. 


Army Moves. 

Esto es la guerra 

Dinamic 

P.V.P.: Disco 3.200/ Cassette 2.300 

I x, es la guerra y ademas de la buena: 
accion, disparos, bombas..., demasiado. 
Demasiado duro, vamos. 

Este dificil juego de Dinamic concedera a los 
aguerridos Caballeros del joystick la oportunidad 
de demostrar su pericia en la importantisima 
tarea de salvar a la humanidad. Para realizar tan 
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noble accion deberemos conducir a Derdhal, 
soldado del cuerpo de operaciones especiales 
(COE), a traves de las Ifneas enemigas al cuartel 
general de estas para conseguir los pianos de la 
bomba de partfcu] as que podrfa ser el arma que 
acabara con la vida en el planeta. 

En la primera parte del juego nos 
encontraremos a los mandos de un moderno jeep 
dotado de misiles tierra-aire y tierra-tierra. En el, 
deberemos cruzar un puente atestado de 
vehfculos enemigos, siendo a la vez atacados 
desde el aire por peligrosos helicopteros de 
combate. Terminaremos la primera parte de la 
mision cuando hayamos logrado llegar a la base 
de los helicopteros enemigos y robar uno. 

La segunda parte de la mision comienza al 
descubrir desde el helicoptero una pantanosa isla. 
Deberemos saltar a su jungla, atravesando 
campamentos y puestos de guardia enemigos, 
hasta que consigarnos llegar al cuartel general de 
estos. Una vez allf, deberemos abrir la caja fuerte 
y robar los pianos de la bomba. 

Entretenido este juego, tal vez demasiado (por 
aquello de la dificultad...), y bien realizado. 

Tiene buenos graficos, buen movimiento, y un 
tema que te absorbe una vez que te has puesto 
delante de la pantalla del ordenador para jugar. 

Digno de mencion: Graficos y voz en castellano. 



atacante y el ordenador sera el defensor. 

Cada bando tiene un determinado numero de 
hombres (la defensa la forman en gran parte 
androides), y cada uno de ellos tiene su 
correspondiente cantidad de energfa. El objetivo 
de los invasores es la destruccion del ordenador 
de la base, llamado Isaac. 




' Rebelstar 

Estrategia galactica 

Dro Soft 

P.V.P.: Cassette 750 

Con este juego de la Serie Plata, Firebird nos 
ofrece un juego de estrategia que, para salirse un 
poco de lo normal, se situa en los espacios 
siderales. 

Podremos jugar contra el ordenador o contra 
otra persona, y el tema de nuestras disputas es, 
segun seamos atacantes o defensores, la conquista 
o defensa de Moonbase Delta. En caso de que 
juguemos con el ordenador, nosotros seremos el 




Los graficos del juego son aceptables y estan 
acompanados de un colorido agradable. 

Un tema siempre delicado de tratar es la 
adiccion que puede conseguir un juego de 
estrategia; nosotros pensamos que, generalmente, 
el «enganche» vendra muy marcado por la 
personalidad del individuo. En el juego que 
ahora nos ocupa, pensamos que si le dedicamos 
el tiempo necesario para conocerlo bien, tal vez 
llegue a interesarnos. 

Rebelstar esta distribuido por Dro Soft. 

Digno de mencion:Graficos y originalidad dentro 
de un tema que, casi siempre trata de la Segunda 
Guerra Mundial. - 






















Gliderrider 

Peligro en el aire 

Mind Games' 

La isla, desde el cielo, parece no ser diferente de las que existen en el 
Pacifico sur. Sin embargo, sabiendo cual es la composition de la 
misma, no tardaremos en comprender la extrana perfeccion de los arboles 
y hierba que la cubren. 

Tratandose de una organizacion dedicada a la fabricacion y venta de 
armamento de alta tecnologia, no se podia esperar otra cosa que no 
fuera una base ilocalizable por radar —su composicion de nylon y 
polietileno lo impiden —- asi como autosuficiente, energeticamente 
hablando, gracias a sus pequenos reactores nucleares. 


r 

1 J 1 SBD (rama armada del servicio de 
inteligencia europeo), te ha nornbrado 
«voluntario» para una tarea que, o te hara pasar 
a formar parte de las filas de heroes, o te hara 
pasar a engrosar la caterva de difuntos que 
«alegran» con su presencia los camposantos de 
Eui'opa. 




Destruir la lisa de «EoOs», base de la 
organizacion «Abraxas», fuertemente defendida y 
vigilada, no va a ser tarea facil. De momento, el 
acceso a ella era lo suficientemente dificil como 
para que el SBD eligiera un sistema alucinante 
de transporte para el agente encargado de la 
mision: acordaron dejarte caer desde un avion de 
carga, a bordo de un ala delta. 

Tan extrana decision tiene razones 
fundamentales. EoOs posee un sistema de 
detection por radar, practicamente insuperable. 
Ante esto, se llego a la conclusion de que el 
unico aparato no detectable es el ala delta, ya 
que su estructura, confeccionada a base de fibras 
organicas de carbono y dacron, pasarian 
totalmente inadvertidas. 

Pero como la isla, a pesar de ser artificial, es 
bastante grande de extension, se penso tambien 
en la necesidad de dotar al agente de un vehiculo 
de transporte facil de llevar en una mochila, 
ademas de comodo de montar y desmontar. 

Evidentemente, se decidieron por una moto 
todo terreno que, salvo el motor, estaba 






compuesta del mismo material ligero y resistente 
que el ala delta. Con estas virtudes, la moto era 
el vehiculo apropiado para desplazarse por un 
terreno abrupto y plagado de montes. 

Para conseguir destruir la isla se desarrollo el 
plan de ataque de la manera siguiente: una vez 
burlados los sistemas de vigilancia, habiendo 
aterrizado en la isla, desmontarias el ala delta y, 
despues de sacar la moto de la mochila, 
guardarias en esta el ala. 

Con la moto, dotada de un sistema silenciador 
de ruidos sumamente efectivo, tendnas que dar 
unas vueltas de reconocimiento a una distancia 
prudente de las instalaciones de la fabrica de 
armamento de la isla. En esta parte de la mision, 
como durante toda ella, deberas tener mucho 
cuidado con las torretas dotadas de laser que se 
encuentran distribuidas por toda la zona. 

Cuando hayas observado lo suficiente el 
emplazamiento de los reactores energeticos de la 
fabrica, asi como el de los sistemas de defensa, 
sera el momento de pasar a la segunda parte de 
la mision. 

En esta, deberas subir a la cima de un monte 
y sacar de la mochila el ala delta de nuevo 
(cuando estamos jugando, esto se limita a tirar 
del joystick hacia atras cuando estamos bajando 
con la moto por la ladera de una montana). En 
este momento empieza la accion de verdad. 

Desde nuestro ala delta, y con treinta minutos 
por delante, deberemos acabar con los diez 
reactores exteriores, asi como con toda fuente de 



TIME 00:11:2* BOMBS:9 ENERGY:99% 
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energfa y edificios operativos que podamos de las 
instalaciones de Abraxas. 

Como esto conlleva un elevado numero de 
bombas, y solo tenemos nueve en principio, 
deberemos buscar en la isla sitios donde podamos 
proveernos de mas. 

Ahora, pasemos a relatar nuestras experiencias 
en la aventura comenzando por el principio. 

Aterrizamos en la parte mas alta de la isla ya 
montados en la moto; inmediatamente, 
comenzamos el recorrido en busca de los 
reactores exteriores. Decimos inmediatamente, 
porque el reloj encargado de medir el tiempo, 
muy bien hecho por cierto, inicia su cuenta en 
cuanto aterrizamos en la isla. 

Esta bien realizado el movimiento de la moto, 
parece de verdad. El que haya hecho trial o todo 
terreno en moto, o lo haya visto hacer, podra 
darse cuenta de que en subidas o bajadas el 
piloto adopta las logicas posturas de un 
practicante de los deportes mencionados. 

Despues de dar unas vueltas de 
reconocimiento, nos dispusimos a sacar el ala 
delta y es cuando descubrimos que se necesitaba 
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un pequeno entrenamiento. En teoria, esto solo 
requiere tirar del joystick hacia atras cuando 
estamos bajando una pendiente con la moto, pero 
cuando nos ponemos a realizarlo, en algunas 
ocasiones se complica el asunto y tenemos que 
volver a subir para dejarnos caer y volver a 
empezar. 

Otra cosa a tener en cuenta es la altura desde 
la que despeguemos. Si la pendiente utilizada es 
muy baja, el vuelo sera a ras de suelo, 
suponiendo la desventaja de verse bajado del ala 
delta en cuanto nos hallemos sobrevolando otro 
desnivel de igual altura al utilizado para 
despegar. 

Una vez en el aire, es realmente entretenido 
ver volar al delta gracias a un movimiento muy 
consegudio y a que, de nuevo, esta muy bien 
realizado graficamente. Volviendo a la accion, es 
necesario mencionar la enorme cantidad de 
torretas laser que hay distribuidas por la base de 
Abraxas; jcuidado con ellas!, nada mas vernos 
iparecer nos dispararan un rayo laser que nos 
consumira gran cantidad de energia. Si nos 
mantenemos en su campo de accion nos seguira 
disparando hasta que acabe con nosotros. En 
cuanto las veamos deberemos escoger entre dos 
opciones: dar media vuelta y huir, intentandolo 
por otro sitio, o atacar con nuestras bombas de 
mano. Nosotros pensamos que es mejor 
alternativa la primera ya que, vayamos donde 
vayamos, alrededor de la verja de la base habra 
una torreta laser. 

El laser es muy fino y dificil de detectar si no 
prestamos atencion a las torretas en cuanto 
aparezcan. Mas bien parece una pequena 
interferencia. 

En nuestra arriesgada mision, vaya si lo es, 
deberemos gastar una buena cantidad de bombas. 
Para reabastecernos, deberemos utilizar las 
bombas apihadas en forma de piramide que 
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veremos distribuidas tanto fuera como dentro de 
la base; eso si, cuando estemos circulando con la 
moto. Una vez en ella, deberemos acercar 
simplemente la rueda delantera y tocar el monton 
de bombas, a continuacion, veremos como el 
indicador de las bombas en la pantalla sube hasta 
nueve, numero de bombas con las que conta’mos 
desde el principio. 

Una de las cosas que tambien hace dificil el 
realizar la mision adecuadamente, es lo 
comprometido que resulta mantenerse en el aire; 
algunas veces es realmente dificil. 

Tambien es importante sehalar lo que nos 
puede ocurrir si sobrevolamos durante mucho 
tiempo el mar. Despues de cierto tiempo veremos 
como aparece un letrero indicandonos que hemos 
sido comidos por los tiburones. jjQue horror!! 

Fuera de bromas, podemos afirmar que este 
juego tiene unos graficos dignos de mencion, un 
movimiento en la misma linea y un colorido que, 
pese a mostrar muy alta resolucion consta de 
cuatro colores, cosa que nos sorprende, ya que si 
estuviera hecho en modo dos, solo podrian ser 
dos los colores utilizados. 

Dura aventura esta, por no decir durisima, la 
que nos ofrece Quicksilva, casa distribuida en 
nuestro pais por Mind Games Espaha. 
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Una ciinta gratis 

por la compra 


do numeros atrasados 





Con la compra 
de siete numeros 
atrasados 
recibfras gratis 
una c nta de 
orogramas de 
YOUR 

COMPUTER (el 
mejor software 
ingles), 
totalmente 
gratis. 


Aprorecha la oferta 
y consigue tu coleccion 





Jhsta section dedicada a todas las compras, ventas, clubs de usuarios 
de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que 
lo desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232. 
Alcobendas. Madrid. 
jABSTENERSE PIRATAS! 


Vendo Amstrad CPC 6128 
con todo lo que en esta lista se 
menciona: 

Monitor en color, teclado 
profesional en espanol, unidad 
de disco, 128 kbytes de 
memoria RAM, manual que 
contiene, Basic del Amstrad, 
Logo, sistemas operativos 
CP/M 2.2 y CP/M Plus. 
Estructura y conexion del 
ordenador a la red electrica. 
Cable para la conexion externa 
del cassette normal, seis Floppy 
Discks vlrgenes, dos discos con 
las dos versiones del sistema 
operativo anteriormente 
nombradas y, con el Logo y 
Programas del Sistema 
Operativo, un disco con 
procesador de textos. 

Ensamblador Gena-3, editor de 
graficos, juegos, etc..., y 
algunas revistas con programas 
y noticias sobre Amstrad. Todo 
ello a un precio razonable, 
discutible. Interesados llamar al 
tel. 88 00 23 (tardes en dlas 
laborables y a cualquier hora 
los dias festivos). Escribir a 
Prudencio Perez Calcines. Cristobal 
Colon, 1. La Montana de 
Gaidar. (Las Palmas de Gran 
Canaria). jUrge por cambio de 
ordenador! 


Desearia contactar con 
chicos-as de Madrid (capital) 
poseedores de un Amstrad CPC 
464 o Spectrum Plus II para 
crear un cfrculo de amigos, los 
cuales nos podamos ayudar en 
el mejor conocimiento y 
programacion de nuestro 
ordenador. Los interesados 
escribir a: Javier Alvarez Zarzp 
C/ Ricardo Ortiz, 74, 5.° A. 
28017 Madrid, o bien llamar al 
tel. 245 32 24. O escribir a: 
Oscar Cano Gonzalez. C/ Ricardo 


Ortiz, 74, l.° D. 28017 
Madrid. O llamar al tel. 
245 35 51. 


Se vende ordenador Amstrad 
CPC 128 K con muchos 
programas en disco, entre ellos 
el Trivial y muchos otros en 
cassette, y un libro Voss del 
CPC 128 K. Todo en su caja 
original, precio: 100.000 ptas. 
Tambien vendo un telescopio 
ecuatorial, completamente 
metalico con todos sus 
componentes y una lente 
terrestre, un acoplador para 
camara fotografica, dos libros 
de Guta de las Estrellas y los 
Planetas de los Hemisferios 
Norte y Sur. Valorados en 
8.000 ptas. y uno de regalo. 
Medidas: F. 900 mm, D. 60 
mm. Todo en su caja original, 
precio 73.000 ptas. Gastos de 
envio por mi cuenta. Escribir a: 
Valeriano Garcia Dominguez. C/ 
Las Moreras, 157. 06006 
Badajoz. 


Me gustaria intercambiar 
juegos para Amstrad CPC 
6128, utilidades, pokes para 
juegos. Mandar lista. Prometo, 
contestar a todos. Mi direction 
es: Miguel Angel Romero Alcaide. 
Avda. Mascatarro, Bl. B l.°, 
4. a . Tel. (93) 898 02 90. Los 
Monjos (Barcelona). 


Vendo ordenador Amstrad 
CPC 6128 (128 K con unidad 
de disco de 170 K). Incluyo 
discos de sistema CPM, disco 
de promotion con base de datos 
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y proceso de textos, 5 discos 
poco usados y formateables con 
programas y utilidades 
mteresantes, 18 revistas 
especializadas, del 1 al 4 gran 
biblioteca Amstrad, 3 libros 
selectos sobre el sistema, el 
lenguaje maquina y musica y 
sonidos, todo esto regalado. 

El precio es de 9.100 ptas., 
mas barato que su precio en el 
mercado (o sea, 75.800 ptas.), y 
todavfa puedes disfrutar de 2 de 
los 6 meses de garantfa. Llamar 
al tel. (968) 83 24 49. Razon 
Javier. 


Club de usuarios de 
Amstrad y Spectrum. Buscamos 
programadores con 
conocimiento del Codigo 
Maquina para nuestro equipo 
de programacion. Llamar o 
escribir a Rafael Cros C/ Doctor 
Lozano, 2, l.° B. Tel. 

433 10 19. 28018 Madrid. 


Me gustaria contactar con 
usuarios de Amstrad PC y 
compatibles. Escribir a: Fernando 
Garcia. Gorbea, 39, 2.° B. 

01012 Vitoria. 


Por un malentendido entre la re¬ 
daction de AMSTRAD Semanal 
e Infor Ofic, publicabamos la se- 
mana pasada dos errores en los 
precios Be dos articulos de la sec- 
cion de Inforbytes. 

La correction es la siguiente: Por¬ 
ta impresora, desde 8.500 ptas. 
Cabina insonorizada, desde 
35.000 ptas. 
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Esta es la oferta del ano, 
todo un ano de AMSTRAD 
Semanal por solo 
6.175 ptas. 50numeros 
que te salen a un precio 
increible: 123 ptas. cada 
uno. 



Ahonate 3.500ptas: un 35%. 



Aprovechate. Una oferta 
asi solo sepresenta una 
vez aJ ano. 

(oferta valida solo para Espana, 
hasta el 28 de febrero de 1987) 



KCVISTA INDEPENTft Nrr PA,A USUARIOS DE ORDEN ADORES AMSTRAD 



del «*C 1512 

Lo qut hay que saber <!« I nucvo 
ordenador de Anistrad: sus 
caracteristicas, ventajas c 
convenicn test Ademis. u n 
txliaus ti vo analisls dc lodas las 
aplicacioncs GEM: programas, 
si'jjtemas opcralivos y mucho mas. 
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HOBBY PRESS. 


Para gente inquieta. 
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TODO EL MUNDO HABLA 
DEL AMSTRAD PC1512 I 


Y no es de extranar; porque con el PC 1512, Amstrad marca un nuevo hrto en fa historia de la informatics. If 

For solo 139.900 Ptas., sin inversiones complementarlas, Vd, dispondra de un completisimo 

sistema informatico que se conecta a la red por un solo cable, y que induye como standard todo lo necesario para trabajar a fondo. 
El Amstrad PC 1512esmuchomasdeloque Vd. esperaba. Pore , k<x el nun: nab-la de el. En todo el mundo. 
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El “PC 1512" es probablemente el 
Microordenador Britanico mas imporlani 
aparecido en este ano. 

\ £sta maquina no es un compatible 
conventional; mas rapido que el PC 
de IBM, mas pequeno, mejores colores en 
pantalla e incluye como standard funciones 
hay que anadir (v pagar) separadamente pai 
cualquier otro IBM compatible, 

Por ejemplo, el 1-2-3 de Lotus funciona 5 
mas rapido que en otro Standard PC. 

GuvKewney 

PERSONAL COMPUTER WORLD U.K. 


* “afluina es exceptional. Primero porque es 
rapidisima, segundo porque trae una gran 
canlidad de extras en Hardware y Software v 
tercero porque su precio es verdaderamente 
inigualabk 

JgaeoMromm . 0 ^, 

V l e, A) o.f'bst,? c On,t* c Qi 


V 

. 







Septiembre 

“Se forman colas para conseguir los 
PCs de Amstrad... 


un dramatico efecto en el mercado 
del PC en general. 
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“PC l f5i°5« rdenad °/ ^ AmStra<S > el 
PC 1512 , promete ser uno de los 

fBf yores triunfos de Alan Sugar, (Las 

primeras impresiones estan siendo 

contundentes. “El Amstrad PC es el 

mas valloso, e! mas apasionante 

acontecimiento desde el Area de 

Noe”, dice Chase Woolcock. 

Marguerite Johnson 
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